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EDITO 


Une nouvelle formule pour le CPC hors-série 
qui devient un bimestriel consacré aux 
aspects techniques de la programmation du 
CPC et du CPC Plus. 

Pour ce numéro, il n’y aura pas de grands 
changements puisque les fanas de listings 
vont pouvoir se régaler avec 6 jeux 
sélectionnés par la rédaction. 

Dès le prochain numéro, vous trouverez de 
nouvelles rubriques avec des routines courtes 
et d'autres listings plus conséquents. 
Rendez-vous en octobre | 
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GESTION RESEAU : NMPP 


SORACOM E. COUDERT 
Tél. 99.52.75.00 - Terminal E83 


Les articles et programmes que nous publions dans ce 
numéro bénéficient, pour une grande part, du droit d’au- 
teur. De ce fait, ils ne peuvent être imités, contrefaits, 
copiés par quelque procédé que ce soit, même partielle- 
ment sans l’autorisation écrite de la Société SORACOM 
et de l’auteur concemé. Les opinions exprimées n’enga- 
gent que la responsabilité de leurs auteurs. Les différents 
montages présentés ne peuvent être réalisés que dans un 
but privé ou scientifique mais non commercial. Ces ré- 
serves s’appliquent également aux logiciels publiés dans 
la revue. 


CPC Plus est édité par les Editions SORACOM, éditrice 
de PCompatibles Magazine, MEGAHERTZ Magazine et 
AM'STAR. RCS Rennes B 319 816 302. 


AMSTRAD est une marque déposée. 
CPC Plus est une revue bimestrielle totalement indépen- 
dante d'AMSTRAD GB et d'AMSTRAD FRANCE. 








Travailler pendant les vacances, 
c’est inhumain ! Vous devez 
ranger les caisses avant de 
pouvoir vous reposer. Utilisez 
les bulles de chewing-gum pour 
amortir les caisses. 


e jeu se présente sous forme de deux 
fichiers. 

BOULOT : fichier Basic corps prin- 
cipal du jeu. 

BOULDATA : fichier Basic conte- 
nant les datas des sprites et routines en 
LM. Ce fichier, une fois lancé, sauve- 
garde automatiquement un fichier binaire 
“BOULBIN”. Pour les 464 K7, BOUL- 
BIN devra donc se trouver à la suite du 
fichier BOULOT. 


10 REM :z:ssssssssssssssessessssse BL 
20 REM >ED 
30 REH AU BOULOT ! >PH 
40 REH EF 
50 REH CLAUDE LE HOULLEC )W 
60 REH 83 RUE JOLIOT CURIE )D 
70 REM 22420 PLOUARET >TY 
80 REX TEL 96 38 94 24 >0H 
90 REM )FA 
100 REM :sssssssss2sssssssssssesss DBN 


110 MEMORY &9900:LOAD "'boulbin",49 
820 


120 REM ::ssssssssssessssessssesse BY 
130 REN : >KK 
140 REM : VARIABLE DE BASE >VP 





150 REM : 


>LB 

>BB 
170 DEFINT a-z:CALL &BBFF:MODE 0:B0 >JG 
RDER 0 

180 RESTORE 200:F0R h-0 TO 1S:READ )RB 
a: INK h,a:NEXT 

190 INK 5,26,0:INK 7,0,26:SPEED INK >GK 
30,30 

200 DATA 0,1,15,5,3,22, 14,7,16,9,13 DNT 
24,18, 23, 26,6 

210 DIM sp(20):FOR h=0 TO 16:sp(h+1 QT 
)=49920+ (ha64) :NEXT:sp(12)=5p(16) 


220 DEF FN pp{x,y)=&C000+(y-1)#80+( >GX 
x-1)#4 
230 DEF FN LP(x,y)=&C000+(y-1)#80+( >GR 
x-1)22 
240 DEF FN polx,y)=&BFFE+(y-1)#160+ >JX 
Cx-1)#4 





250 DIM je(21,13):DIM A1$(13) NY 
260 ENV 1,100,3,1:ENT 1,100, 2,2 LL] 
270 ENV 2,10,-1,2:ENT 2,10, -2,2 )WR 


280 TA=1:VIE=5:SC=0:TP=150:G0SUB 31 >FG 
80 

290 ON BREAK GOSUB 3120:REM ne rent >AP 
rez cette ligne que lorsque votre p 
rograsse est au point. 


300 REM :ttstsssssssssssssssesssss DBX 
310 REX : >KK 
320 REX : DECOR DE BASE >RU 
330 REX : LB 
340 REM ::s2tssessssssssssss22sc: DBB 


350 POKE &A020,0:FO0R h=1 TO 20:CALL >YN 
&AOOD,FN pph,1),sp(9):CALL &A00D, 

FN ppCh,24),sp(9):NEXT . 

360 FOR h=3 TO 23 STEP 2:CALL &A00D >MT 
FN pp(i,h),sp(9):CALL &AOOD,FN pp{ 
20,h),sp(9):NEXT:POKE &A020,&AE 


370 GOSUB 380:G0TO 400 

380 FOR h=2 TO 12:jel1,h)=1:fe(21,h 
)=1:NEXT 

390 FOR h=1 TO 21:jeh,1)=1: jeth, 13 
)=1:NEXT:RETURN 

400 POKE &A039,176:FOR h=0 TO 38:CA 
LL &A032, &COA2+H:CALL &A032, &COED-H 
:NEXT:G0TO 520 

410 AB=MPAS KCCCLLCCLECCLECLLELEEX 
LCL": ZL =: YL=1 :cer=2:G0SU 
B 440:RETURN 


420 AS="VIE SCO TEMPS T 
AB GUX ":ZL=1:YL=1:cer=2:G0SU 
B 440 


430 GOSUB 2940:G0SUB 2950:G0SUB 301 
0:G0SUB 3050:G0SUB 3080:RETURN 

440 AS=UPPER$(A$):FOR T=1 TO LEN(AS$ 
):PS=(ASC(HIDS(AS$,T, 1)))-48 

450 IF PS(O THEN PS=43 

460 CALL &9D20,FN LP(ZL,YL)+(T#2)-c 
er, &9D40+(PS#16) :NEXT :RETURN 


480 REM : 


490 REH : BRANCHEMENT TABLEAU 
500 REH : : 
510 REM sssssssssssssseeeseneseuse 


520 ON TA GOTO 530,540, 550, 560,570, 
580,590, 600,610, 620, 630, 640, 650 

530 GOSUB 660:RESTORE 3620:G0SUB 72 
0:GOSUB 420:G0T0 1090 

540 GOSUB 660:RESTORE 3650:G0SUB 72 
0:GOSUB 420:G0T0 1090 

550 GOSUB 660:RESTORE 3690:G0SUB 72 
0:GOSUB 420:G0T0 1090 

560 GOSUB 660:RESTORE 3720:G0SUB 72 
0:GOSUB 420:GOT0 1090 

570 GOSUB 660:RESTORE 3750:GO0SUB 72 
0:GOSUB 420:G0T0 1090 

580 GOSUB 660:RESTORE 3780:G0SUB 72 
0:GOSUB 420:G0T0 1090 

590 GOSUB 660:RESTORE 3840:G0SUB 72 
0:GOSUB 420:G0T0 1090 

600 GOSUB 660:RESTORE 3840:G0SUB 72 
0:GOSUB 420:GO0T0 1090 

610 GOSUB 660:RESTORE 3870:G0SUB 72 
0:GOSUB 420:G0T0 1090 

620 GOSUB 660:RESTORE 3900:G0SUB 72 
0:GOSUB 420:GO0T0 1090 

630 GOSUB 660:RESTORE 3950:GOSUB 72 
0:GOSUB 420:G0T0 1090 

640 GOSUB G60:RESTORE 3980:GOSUB 72 
0:GOSUB 420:GO0T0 1090 

650 ta=1:GOTO 520 

660 GUM-0:RESTORE 3590:TES=1 :GOSUB 
720:GOSUB 410:GO0T0 1100 


>K 
XL 


>vB 


)LV 


)QN 


>ZP 


>BH 





EE 


680 REH : 
690 REX : 
700 RENH : : 

710 REM :sssssssssssssssssesensest 

720 FOR h=0 TO 38:CALL &A032, &COA2+ 
H:CALL &A032, &COED-H:NEXT 

730 FOR H=2 TO 12:READ A1:A1$(H)=BI 
N$(A1,10):NEXT 

740 FOR H=2 TO 12:1F A1$(H)="000000 
0000" THEN 780 

750 FOR G=1 TO 10:B1$-HID$(A1$(H),G 
»1):B1=VAL(B1$) 

760 IF B{=1 THEN CALL &AOOD,FN PO(G 
»H),SP(9):JE(G,H)=1 

770 NEXT G 

780 SOUND 1, INT(RND#600)+60,5,15:NE 
XT H 

790 FOR H=2 TO 12:READ A1:A1$(H)=B] 
N$CA1, 10) :NEXT 

800 FOR H=2 TO 12:1F A1$(H)="000000 
0000" THEN 840 

810 FOR G=1 TO 10:B1$-MID$(A1$(H),G 
»1):B1=VAL(B1$) 

820 IF B1=1 THEN CALL &AOOD,FN PO(G 
+10,H),SP(9):JE(G+10,H)=1 

830 NEXT G 

840 SOUND 1, INT(RND#600)+60,5, 15:NE 
IT H 

850 READ CX:1F cx=0 THEN 880 

860 FOR H=1 TO cu:READ A,B:CALL &AO 
OD,FN PO(A,B),SP(10) 

870 JE(A,B)=3:NEXT 

880 READ CA:1F ca=0 THEN 910 

890 FOR H=1 TO CA:READ A,B:CALL &AO 
OD,FN PO(A,B),SP(11) 

900 JE(A,B)=4:NEXT 

910 READ BU:1F bu=0 THEN 950 

920 FOR H=1 TO BU 

930 A=INT(RND#18)+2:B=INT(RND#10) +2 
:IF JE(A,B)O0 THEN 930 

940 CALL &AOOD,FN PO(A,B),SP(12):JE 
(A,B)=5:NEXT 

950 READ GU:1F GU=0 THEN 1000 

960 gu=INT(RND#15)+5:FOR H=1 TO GU 


CREATION TABLEAU 


970 A=INT(RND#18)+2:B=INT (RND#10) +2 
:IF JECA,B)C0 THEN 970 

980 CALL &AOOD,FN PO(A,B),SP(15):JE 
(A,B)=2:NEXT 

980 IF tes=1 THEN 1010 

1000 READ x,y:CALL &AOOD,FN PO(x, y) 
,SP(5):ac=5:G0T0 1030 

1010 x=INT(RND#18)+2:y=INT(RND#10)+ 
2:1F JE(x,y) O0 THEN 1010 

1020 CALL &AOOD,FN PO(x,y),SP(5):ac 
=5 

1030 PAS=0:FIN=0:RETURN 


>LK 
>WH 
)LC 
>BC 
)EE 





1040 REM ::::::22s222222e022222220e 
1050 REM : 

1060 REM : ROUTINE PRINCIPALE 
1070 REN : 

1080 REM :::::52:222e2222222222222 
1090 EVERY 250 GOSUB 2910 

1100 IF FIN=1 THEN 2750 

1110 IF INKEY(ha)=0 THEN 55=1:GO0T0 
1180 

1120 IF INKEY(ba)=0 THEN 55=3:G0T0 
1260 

1130 IF INKEY(ga)=0 THEN 35=4:G0T0 
1340 

1140 IF INKEY(da)=0 THEN 35=2:G0T0 
1430 

1150 IF INKEY(fe)=0 THEN 2360 

1160 GOTO 1100 

1170 REM ::: VERS LE HAUT ::: 


1180 a=je(x,y-1):1F a=0 THEN 1200 
1190 GOTO 1560 

1200 CALL &AOOD,FN polx,y),splac):S 
OUND 1,300,5,1,1,1,15 

1210 CALL &A052,FN polx,y):FOR h=1 
TO 3:CALL &AOGSC, sp(ac) 

1220 FOR t=1 TO 5S0:NEXT:CALL &AOGE, 
sp(ac) :NEXT 

1230 CALL &AOSC,sp(ac):y=y-1:1F TES 
=0 THEN 1100 

1240 PAS=PAS+1:ZL=41-PAS:YL=1:A$=" 
":CER=2:G0SUB 440:1F PAS=36 THEN F1 
N=1:GOT0 1100 ELSE 1100 

1250 REM ::: VERS LE BAS ::: 


1260 a=je(x,y+1):1F a=0 THEN 1280 
1270 GOTO 1560 

1280 CALL &AOOD,FN polx,y),splac):S 
OUND 1,300,5,1,1,1,15 

1290 CALL &A052,FN polx,y):FOR h=1 
TO 3:CALL &AO7B, sp(ac) 

1300 FOR t=1 TO SO0:NEXT:CALL &AOGE, 
sp(ac) :NEXT 

1310 CALL &AO7B,splac)::y=y+{:[F TE 
S=0 THEN 1100 

1320 PAS=PAS+1:ZL=41-PAS:YL=1:A$=" 
":CER=2:G0SUB 440:1F PAS=36 THEN FI 
N=1:G0T0 1100 ELSE 1100 

1330 REM ::: A GAUCHE  ::: 

1340 a=je(x-1,y):IF a=0 THEN 1360 


1350 CALL &AOOD,FN polx,y),splac):C 
ALL &AOOD,FN po(x,y),3p({):ac=1:G0T 
0 1560 

1360 CALL &AOOD,FN pol(x,y),splac):S 


: )ZE 


>QH 
>F4 


JR 
>LH 
NA 
>ZA 
NA 
74] 
>2G 
>PT 
>PH 


)AW 


VA 
>2F 
>K 
IT 
)ZR 
>PR 
0 
AU 
RL 


>2F 


>BK 


>2R 


OUND 1,300,5,1,1,1,15 

1370 FOR h=2 TO 4:CALL &AOOD,FN pot 
x,y)-h+1,sp(h) 

1380 FOR t=1 TO SO:NEXT:CALL &AOOD, 
FN polx,y)-h+1,sp{h) 

1390 NEXT h:x=x-1:CALL LAOOD,FN pal 
x,y),3p(1) 

1400 ac=1:1F TES=0 THEN 1100 

1410 PAS=PAS+1:ZL=41-PAS:YL=1:A$=" 
":CER=2:G0SUB 440:1F PAS=36 THEN FI 
N=1:G0T0 1100 ELSE 1100 

1420 REM ::: A DROITE ::: 

1430 a=je(x+i,y):1F a=0 THEN 1450 


1440 CALL &AOOD,FN polx,y),sp(ac):C 
ALL &AOOD,FN polx,y),s3p(5):ac=5:GO0T 
0 1560 

1450 CALL &AOOD,FN polx,y),splac):S 
OUND 1,300,5,1,1,1,15 

1460 FOR h=6 TO 8:CALL &AOOD,FN po 
x,y)th-5,sp(h) 

1470 FOR t=1 TO SO:NEXT:CALL &AOOD, 
FN po{x,y)th-5, sp{h) 

1480 NEXT h:x=x+1:CALL &AOOD,FN po( 
x,y),sp(5) 

1490 ac=5:1F TES=0 THEN 1100 

1500 PAS=PAS+1:ZL=41-PAS:YL=1:A$=" 

":CER=2:G0SUB 440:1F PAS=36 THEN F1 
N=1:GOT0 1100 ELSE 1100 


1510 REM sssssssssssesssscsssetsss 
1520 REN : 

1530 REX : POUSSE CAISSES 

1540 REH : 

1550 REM :sssssssssssssssssesestest 


1560 ON a GOTO 1100, 2650, 1100, 1570, 
1890 
1570 ON ss GOTO 1580, 1700, 1640, 1770 


1580 xc=x:yc=y-1:SOUND 2,50,20,15,4 
2,6 

1590 IF jelxc,yc-1)=0 THEN 1600 ELS 
E IF jelxc,yc-1)=3 THEN 2210 ELSE 1 
100 

1600 CALL &AOOD,FN polxc,yc),sp(11) 
:jelxc, yc)=0 

1610 CALL &AO52,FN polxc,yc):FOR h= 
1 TO 3:CALL &AOSC, sp(11) 

1620 FOR t=1 TO 10:NEXT:CALL BAOGE, 
sp(11) :NEXT 

1630 CALL B&AOSC, sp(i1):yc=yc-1: jetx 
6,yc)=4:G0T0 1590 

1640 xc=x:yc=y+1:SOUND 2,50,20, 15,4 





\/ 


,2,6 

1650 IF je(xc,yc+12=0 THEN 1660 ELS 
E IF jelxc,yc+1)=3 THEN 2230 ELSE 1 
100 

1660 CALL &AOOD,FN polxc,yc),sp(11) 
:jelxc, yc)=0 

1670 CALL &AO52,FN polxc,yc):FOR h= 
1 TO 3:CALL &AO07B, sp(11) 

1680 FOR t=1 TO 10:NEXT:CALL &AOGE, 
sp(11) :NEXT 

1690 CALL &AO7B,sp(ii):yc=yct1:je(x 
c,yc)=4:G0T0 1650 

1700 xc=x+i:yc=y:SOUND 2,50,20,15,4 
,2,6 

1710 IF jel(xct1,yc)=0 THEN 1720 ELS 
E IF jelxcti,yc)=3 THEN 2250 ELSE 1 
100 

1720 CALL &AOOD,FN potxc,yc),spt11) 
:jelxce, yc)=0 

1730 FOR h=1 TO 3:CALL &AOOD,FN pot 
xc,yc)+h,sp(11) 

1740 FOR t=1 TO 10:NEXT:CALL &AOOD, 
FN polxc,yc)+th,sp{11) 

1750 NET h:xc=xc+1:CALL &AOOD,FN p 
ol(xc,yc),sp(11) 

1760 jelxc,yc)=4:G0T0 1710 

1770 xc=x-1:yc=y:SOUND 2,50,20,15,4 
,2,6 

1780 IF je(xc-1,yc)=0 THEN 1790 ELS 
E IF jelxc-1,yc)=3 THEN 2270 ELSE 1 
100 

1790 CALL &AOOD,FN polxc,yc),sp(11) 
tjel(xc, yc)=0 

1800 FOR h=1 TO 3:CALL &AOOD,FN po 
xc,yc)-h,sp(11) 

1810 FOR t=1 TO 10:NEXT:CALL &AOOD, 
FN polxc,yc)-h,sp(11) 

1820 NEXT h:xc=xc-1:CALL &AOOD,FN p 
o(xc,yc),sp(11) 


1830 jelxc,yc)=4:G0T0 1780 

1840 REM ssssssssssssssssssesesestss 
1850 REX : 

1860 REN : POUSSE BULLES 

1870 REN : 

1880 REM :ssssssssssssssessstesets: 


1890 ON ss GOTO 1900, 2090, 1960, 2020 


1900 xu=x:yu=y-1:SOUND 1,50, 12,5,2, 
10 

1910 IF jelxu,yu-1)=0 THEN 1920 ELS 
E 1100 

1920 CALL &AOOD,FN polxu, yu),sp(12) 


: >VQ 


>CR 


DAJ 


>ED 


>FA 


>RV 





:je(xu, yu)=0 

1930 CALL &A052,FN potxu,yu):FOR h= 
1 TO 3:CALL &AOSC, sp(12) 

1940 FOR t=1 TO 10:NEXT:CALL &AOGE, 
sp(12) :NEXT 

1950 CALL &AOSC, sp(12):yu=yu-1:je(x 
u,yu)=5:G0TO 1910 

1960 xu=x:yu=y+1:SOUND 1,50,12,5,2, 
10 

1970 IF je(xu,yu+1)=0 THEN 1980 ELS 
E 1100 

1980 CALL &AOOD,FN polxu, yu),sp(12) 
:je(xu, yu)=0 

1990 CALL &A052,FN polxu,yu):FOR h= 
1 TO 3:CALL &AO7B, sp(12) 

2000 FOR t=1 TO 10:NEXT:CALL &AOGE, 
sp(12):NEXT 

2010 CALL &AO7B,sp(12):yu=yut{: je(x 
u,yu)=5:G0T0 1970 

2020 xu=x-{:yu=y:SOUND 1,50,12,5,2, 
10 

2030 IF jelxu-1,yu)=0 THEN 2040 ELS 
E 1100 

2040 CALL &AOOD,FN potxu,yu).sp(12) 
:je(xu, yu)=0 

2050 FOR h=1 TO 3:CALL &AOOD,FN pol 
xu,yu)-h,sp(12) 

2060 FOR t=1 TO 10:NEXT:CALL &AOOD, 
FN po(xu, yu)-h,sp(12) 

2070 NEIT h:xu=xu-1:CALL &AOOD,FN p 
o(xu, yu),s3p(12) 

2080 jelru,yu)=5:G0T0 2030 

2090 xu=x+1:yu=y:SOUND 1,50,12,5,2, 
10 

2100 IF jelxu+{,yu)=0 THEN 2110 ELS 
E 1100 

2110 CALL BAOOD,FN potxu, yu),sp(12) 
:je(xu, yu)=0 

2120 FOR h=1 TO 3:CALL &AOOD,FN po 
xu, yu)+h, sp(12) 

2130 FOR t=1 TO 10:NEXT:CALL &AOOD, 
FN polxu, yu)+h, sp(12) 

2140 NEXT h:ru=xuti:CALL &AOOD,FN p 
olxu, yu),sp(12) 


2150 jelxu,yu)=5:G0TO 2100 

2160 REM :sss2s2ss2225222222225252: 
2170 REN : 

2180 RE : CAISSE EN PLACE 

2190 REN 

2200 REM :ssssssssssssmsssssitstss: 


2210 CALL &AOOD,FN polxc,yc),sp(11) 
:jelxce, yc)=0 


: >VG 


CC 


> 


2220 CALL &AOOD,FN potxc,yc-1),spti 
D:je(xc,yc-1)=1:G0T0 2290 

2230 CALL &AOOD,FN po(xc,yc),sp(11) 
tjelxc, yc)=0 

2240 CALL &AOOD,FN polxc,yc+1),sp{i 
D:jeluc,yc+1)=1:G0T0 2290 

2250 CALL &AOOD,FN polxc,yc),sp{11) 
tjelxc, yc)=0 

2260 CALL &AOOD,FN potxct{,yc),sp(i 
1):je(xc+i,yc)=1:G0T0 2290 

2270 CALL &AOOD,FN polxc,yc),sp(11) 
tjelxc, yc)=0 

2280 CALL &AOOD,FN polxc-{,yc),spti 
D:je(xc-1,yc)=1 

2290 FOR H=5 TO 100 STEP 5:SOUND 1, 
50+H,3,5:NEXT:sc=5c+60:GOSUB 2950 
2300 ca=ca-1:1F ca=0 THEN fin:1:G0T 
0 1100 ELSE 1100 


2310 REM sssssssssssssensesesseses: 
2320 REN : 

2330 REN : FEU/COPY 

2340 REX : 

2350 REM ::stssssssssssssesesesent 


2360 WHILE INKEY$O"":WEND:0N ss GO 
TO 2370, 2480, 2520, 2560 

2370 IF je(x,y-1)=0 THEN 2460 

2380 IF je(x,y-1)5 THEN 1100 ELSE 
XU=x:yu=y-{ 

2390 CALL &AOOD,FN potxu, yu), spt12) 


2400 SOUND 2,50,0,15,2,2,31:F0R H=1 
TO 4 
2410 CALL &AOOD,FN polxu, yu), sp(13) 


2420 CALL &AOOD,FN potxu, yu),spt13) 
2430 CALL &AOOD,FN potxu, yu),sp(14) 
2440 CALL &AOOD,FN potxu, yu),sp(14) 


2450 NEXT: je(xu, yu)=0:G0T0 1100 

2460 IF GUH=0 THEN 1100 ELSE GUM-GU 

H-1:GOSUB 3080 

2470 CALL LAOOD,FN potx,y-1),spt12) 
:je(x,y-1)=5:GO0T0 1890 

2480 IF je(x+1,y)=0 THEN 2500 

2490 IF je(x+i,y)C5 THEN 1100 ELSE 
xu=xt+{:yu=y:G0TO 2390 

2500 IF GUH=0 THEN 1100 ELSE GUH=GU 

H-1:G0SUB 3080 

2510 CALL &AOOD,FN po(x+1,y),sp(12) 
tje(xti,y)=5:G0T0O 1890 





\æ—/ 


2520 IF je(x,y+1)=0 THEN 2540 

2530 IF jelx,y+1)€25 THEN 1100 ELSE 
xu=x:yu=y+1:G0T0 2390 

2540 IF GUH=0 THEN 1100 ELSE GUM-=GU 

M-1:GOSUB 3080 

2550 CALL LAOOD,FN po(x,y+1),5p(12) 
:jelx,y+1)=5:G0T0 1890 

2560 IF je(x-1,y)=0 THEN 2580 

2570 IF jetx-1,y)©>5 THEN 1100 ELSE 
xu=x-{:yu=y:G0TO 2390 

2580 1F GUH-0 THEN 1100 ELSE GUM-GU 

M-1:GO0SUB 3080 

2590 CALL &AOOD,FN polx-1,y),spt(12) 
:jelx-1,y)=5:GO0T0 1890 

2600 REX 


Sussosssssssssesssssssssss 
Sn sn ss ss ss ss ss ss sssss 


2610 REN : 


2620 REM :  RAMASSE CHEWING-GUH 


2630 REM : 


2640 REN 


sssnsssesssssssssssssssss 
nn ss ssssss 


2650 GUMH=GUM+1:0N ss GOTO 2660, 2670 
, 2680, 2690 

2660 CALL &AOOD,FN PO(X,Y-1),SP(15) 
:JECX,Y-1)=0:G0T0 1100 

2670 CALL LAOOD,FN PO(X+1,Y),SP(15) 
:JE(X+1,Y)=0:GO0T0 1100 

2680 CALL &AOOD,FN POUX, Y+1),SP(15) 
:JE(X,Y+1)=0:G0T0 1100 

2690 CALL &AOOD,FN POCX-1,Y),SP(15) 
:JE(X-1,Y)=0:G0T0 1100 

2700 REN 


Suns sssssesssosss esse se 
ss ssssssssus 


2710 REM : 


2720 REM : VIE -1/PERDU/GAGNE 


2730 REM : 


2750 au=REMAIN(O):1F TES=1 THEN TES 
=0:G0TO 2840 

2760 IF ca-0 THEN 2820 ELSE 2770 
2770 vie=vie-1:BORDER 26: INK 0,26:S 
OUND 4, 1500, 50, 7,0,0, 10 

2780 FOR t=1 TO 4000:NEXT t:BORDER 
O:INK 0,0 

2790 SOUND 1,239,20,6:S0UND 1,0, 2,6 
:SOUND 1,239, 20,6: SOUND 1,319, 20,6: 
SOUND 1,213, 20,6:SOUND 1,239, 40,6:S 
OUND 1,319, 20,6 

2800 IF VIE-0 THEN RUN 170 

2810 ERASE je:DIM JE(21,13):GOSUB 3 


NE 


>TV 
)1Z 








80:TP=150:G0T0 520 

2820 TA=TA+{:BORDER 26:FOR H=1 TO 2 
0:5C=SC+10:GO0SUB 2950 

2830 SOUND 1,H410,10,14:NEXT:TP=150 
:GUM=0:BORDER 0:G0T0 2810 

2840 FOR h=0 TO 38:CALL 4A032, &COA2 
+H:CALL &A032, &COED-H:NEXT 

2850 ERASE JE:DIM JE(21,13):GOSUB 3 
80:RETURN 


ssssssssssssssssssssssssss 
ss ssssssssss 


2870 REM : 


2880 REM : GESTION COMPTEURS 


2890 REM : 


sussssssssssssssssssssssss 


2910 Di:tp=tp-5:a$="  ":21=23:y1=1 
:cer=2:GOSUB 440:G0SUB 3010 

2920 LOCATE 1,1:PRINT CHR#(7):1F tp 
€5 THEN fin=1:El:RETURN ELSE EI :RET 
URN 

2930 REM :::: GESTION DES SCORES 
2940 AS$=STR$S(VIE) :ZL=4:YL=1:CER=2:G 
OSUB 440:RETURN 

2950 a$=STR$(sc):a$=RIGHT$(a$, LEN(a 
$)-1) 

2960 IF sc>9999 THEN z1=11:yl=1:cer 
=2:GOSUB 440:RETURN 

2970 IF sc>999 THEN z1=12:yl=1:cer= 
2:GOSUB 440:RETURN 

2980 IF sc>99 THEN z1=13:yl=1:cer=2 
:GOSUB 440:RETURN 

2990 IF sc>9 THEN z1=14:yl={:cer=2: 
GOSUB 440:RETURN 

3000 z1=15:yl=1:cer=2:G0SUB 440:RET 
URN 

3010 a$=STR$(TP):a$=RIGHT$(a$, LEN(a 
$)-1) 

3020 IF TP>99 THEN z1=23:yl={:cer=2 
:GOSUB 440:RETURN 

3030 IF TP>9 THEN zi=24:yl={:cer=2: 
GOSUB 440:RETURN 

3040 z1=25:yl=1:cer=2:G0SUB 440:RET 
URN 

3050 a$=STR$(TA):a$=RIGHT$(a$, LEN(a 
$)-1) 

3060 IF TA>9 THEN z1=31:yl=1:cer=2: 
GOSUB 440:RETURN 

3070 z1=32:yl=1:cer=2:G0SUB 440:RET 
URN 

3080 a$=STR$(GUM) :a$=RIGHT$(a$, LEN( 
a$)-1) 

3090 IF GUXH>9 THEN z1=38:yl=1cer:2 
:GOSUB 440:RETURN 


AJ 


>GL 


>FN 


NV 


>CQ 


5 DTK 


: )2N 


Ë 


> 


)YK 


3100 z1=39:yl=1:cer=2:G0SUB 440:a$= 
" ":21=38:y1=1:G0SUB 440:RETURN 
3110 REM :::: TOUCHE BREAK 

3120 FIN=1:RETURN:REM POUR QUAND VO 
US ETES BLOQUE... 

3130 REN 


3140 REM : 


3150 REN : PRESENTATION 


3160 REM : 


3170 REH 


Snssssossss sans os sus ss 
ns sn ss ss 


3180 xtt=0:FOR h=0 TO 14 STEP 2:PLO 
T 0,h,9:DRAW 640,h:NEXT 

3190 FOR h=2 TO 7:FOR g=9 TO 12:CAL 
L &AOOD,FN poth, g)-2,sp(9):NEXT g,h 


3200 FOR h=6 TO 8:CALL &AOOD,FN po 

6,H)-2, sp(9) :NEXT 

3210 FOR h=15 TO 19:CALL &AOOD,FN p 

oh, 12), sp(11) :NEXT 

3220 FOR h=16 TO 19:CALL &AOOD,FN p 

o(h,11)-2, sp(11) :NEXT 

3230 FOR h=16 TO 18:CALL &AOOD,FN p 

o(h,10),5p(11):NEXT 

3240 CALL &AOOD,FN PO(14,12),SP(1): 

POKE &A020,&AE:1=14 

3250 RESTORE 3260:F0R h=1 TO 10:REA 

D a$,zl,yl:CER=2:GOSUB 440:NEXT 

3260 DATA USINE, 4,18, "LHC SOFTWARE" 

5120,"1 : JOYSTICK",15,12,"2 : CLA 

VIER",15,14,"3 : EXPLICATIONS", 15,1 

6 

3270 DATA " 0 00 
0 000 0",3,2 

3280 DATA "0000 
00 0 0°",3,3 

3290 DATA "000 0 0 
00 0 0",3,4 

3300 DATA "0000 
00 0  ",3,5 

3310 DATA "O 0 0 

0 0 O0 0",3,6 

3320 A$=INKEY$:1F A$="" THEN 3320 

3330 IF A$="1" THEN GA=74:DA=75:HA= 

72:BA=73:FE=76:G0T0 3370 

3340 IF A$="2" THEN GA=8:DA=1:HA:0: 

BA=2:FE=9:G0T0 3370 

3350 IF A$="3" AND xtt=0 THEN 3420 

3360 GOTO 3320 

3370 CALL &AOOD,FN polx,12),sp(1):5 

OUND 1,300,5,1,1,1,15 

3380 FOR h=2 TO 4:CALL &AOOD,FN pol 

x,12)-ht{,spth) 


00 0 000 
0000000 
00 00000 
0000000 


00 0 0 00 


)RY 


>) 
»YG 


>CF 


N 


3390 FOR t=1 TO 70:NEXT:CALL &AOOD, 
FN po(x,12)-h+1,sp{h) 

3400 NEXT h:X=X-1:CALL &AOOD.FN pot 
x,12),sp(1):1F X=7 THEN CLS:RETURN 
ELSE 3370 

3410 CALL &BB18:HODE 2:PEN 1:1NK 1, 
24:END 

3420 WINDOW #1,1,20,1,10:CLS #1:4HI 
LE INKEY$C"":WEND:RESTORE 3450 
3430 FOR h=1 TO 8:READ at:z1=1:y1=H 
:CER=2:GOSUB 440:NEXT 

3440 xtt=1:GO0T0 3320 

3450 DATA " MARIO REVE DE VACANCES 
MAIS AVANT CELA" 

3460 DATA "SON PATRON LUI ORDONNE 
DE RANGER LES 12* 

3470 DATA "ENTREPOTS DE L'USINE(" 
3480 DATA " AIDEZ LE A TRANSPORTER 
LES CAISSES SUR* 

3490 DATA "L)ENDROIT MARQUE DDUNE C 

ROIX<" 

3500 DATA " AVANT CHAQUE TACHE MAR 
10 FERA EMPLETTE" 

3510 DATA "DE CHEWINGCGUM TRES UTI 

LES POUR AHORTIR" 

3520 DATA "LE TRAJET DES CAISSES<* 

3530 REM 





ss ssesosssssssesssssss ss 
Sons ss ss ns ss ss ss ssssss 


3540 REM : 


3550 REN : DATA 12 TABLEAUX 


3560 REN : 


3570 REN 


soso sosssrssssssssssssese 
Stones sn ss ssssssssss 


3580 REM ::: TABLEAU CHEWING-GUM :: 


3590 DATA 128,239,0,175, 161, 189, 132 
,245,149,149,17,64,894, 258,474, 10,4 
88, 47,928, 46, 426, 136 

3600 DATA 0,0,0, 20,8, 12 

3610 REM ::: TAB 1 ::: 

3620 DATA 65,64,65,65,65,65,65,65,3 
3,1,65,0,0,0,0,0,0,0,0,0,0,0 

3630 DATA 2,2,2,3,2,2,11,10,16,5,3, 
0,5,11 

3640 REN ::: TAB 2 ::: 

3650 DATA 32,32,62,0,0,15,8,8,8,8,8 
,0, 0,128, 128, 135,960,64,64,64,0,0 


3660 DATA 5,10,8,12,8,9,9,11,9,13,9 


3670 DATA 5,3,3,5,10,16,3,18,8,14,1 
1,8,0, 12, 12 

3680 REN ::: TAB 3 ::: 

3690 DATA 33,33,33,1,417,111,0,0, 49 


6,0,0,80,0,0,0,0,1,0,15,0,0,0 

3700 DATA 3,7,3,14,4,11,10,3,4,3,3, 
8,15,11,2,0,5,9 

3710 REM ::: TAB 4 ::: 

3720 DATA 0,0,32,32,32,0,0,0,0,0,0, 
0,0,32,0,0,0,0,0,0, 768,0 

3730 DATA 4,11,6,10,7,12,7,11,8,4,3 
:4,16,3,7,9,18,10,3,0,5,3 

3740 REN ::: TAB 5 ::: 

3750 DATA 366,258, 2,38, 288, 288, 292, 
63,0,0,0,25,0,124,64,64,71,64,984, 1 
36,56. 32 

3760 DATA 2,2,12,16,10,2,7,10,13,11 
,2,0,5,12 

3770 REM ::: TAB 6 ::: 

3780 DATA 8,8,8,15,0,256,0,319,0,0, 
0,42, 32,32, 480, 0,0,0, 1017,0,0,0 
3790 DATA 3,9,4,13,4,13,3,3,8,11,13 
,11,11,10,2,0,10,8 

3800 REM ::: TAB 7 ::: 

3810 DATA 0,0,102,0,68,136,0,113,81 
,0,0,0,0,408,1,274,544,0,796,276,0, 
0 

3820 DATA 5,4,2,8,2,12,2,16,2,20,2, 
5,6,8,16,8,5,11,11,11,17,11,5,0,18, 
12 

3830 RE ::: TAB 8 ::: 

3840 DATA 0,0,40,56,0,1,1,1,0,0,0,0 
,0,0,0,0,512,0,568, 40,0,0 

3850 DATA 3,6,4,11,8,16,10,3,6,6,9, 
8,18,9,10,0,11,6 

3860 REM ::: TAB 9 ::: 

3870 DATA 0,127,32, 420, 36, 40, 39, 32, 
427,1,1,1,912,20,20,916, 148,644, 132 
252,0,0 

3880 DATA 1,3,2,1,4,11,3,0,5,12 
3890 REN ::: TAB 10 ::: 

3900 DATA 0,0,32,32,0,14,2,2,384,0, 
0,8,0, 128, 128, 248,8,8,8,0, 128, 128 
3910 DATA 10,3,4,9,6,8,8,2,9,6,11,1 
8,2,14,5,16,7,19,7,14,12 

3920 DATA 10,8,3,9,3,10,3,11,3,11,4 
,11,5,11,8,11,9,11,10,12,10 

3930 DATA 6,0,13,3 

3940 REN ::: TAB 11 ::: 

3950 DATA 0,0,127,1,1,31,1,1,1,127, 
0,0,0,0,0,0,0,960,0,0,0,0 

3960 DATA 4,18,5,19,7,18,9,19,11,4, 
8,5,8,9,12,6,12,10,6,0,10,3 

3970 REM ::: TAB 12 ::: 

3980 DATA 0,256,121,65,65,113,65,65 
,121,0,128,2,0,156, 146,658, 400, 146, 
146,156, 1,0 

3990 DATA 9,2,2,20,2,2,12,20,12,5,5 
558,12,6,11,7,17,5 

4000 DATA 9,8,3,8,4,8,5,8,6,8,7,8,8 
,8,9,8,10,19,7,6,0,15,12 


>PU 


V 


AZ 


BOULDATA 


5 MEMORY &98FF:CALL &BBFF:MODE 1 

7 LOCATE 1,10:PRINT * DATAS DE LA LIG 
NE CORRECTS":PEN 2 

10 A=49920:F=&AOAO:L=100:WHILE AC=F:F 
OR A=A TO A+15:READ C$:K=VAL("&"+CS) : 
S=S+K+65536#(5+K)32767):1F A(=F THEN 

POKE A,K 

20 NEXT:READ D$:T=VAL("&"+D$):1F TOS 
THEN PRINT CHR$(7); "Erreur ligne";L: 
END ELSE L=L+5 

25 LOCATE 20,10:PRINT 1-S:WEND 

100 DATA 00,CC, 88,00, 00, 3C, 88, 00, 44, C 
C,28,00,00,02, 02,00,0354 

105 DATA 00,03,02,00,00,01,0A, 00,00, 0 









Nom : 
Adresse : 
Code postal : 









LI 








0,00, 00,00, CC, 28, 00, 0458 
110 DATA 00,CC,3C,00, 00, CC, 3C, 00, 00, C 
C, CC, 00,00, 00, 03, 00, 0803 
115 DATA 00,14,28,00, 00, 14, 28,00, 00, 4 
4,28,00,00, 3F, 00, 00, 0926 
120 DATA 00, CC, 88,00, 00, 3C, BB, 00, 44, C 
C, 28,00, 00, 02, 02, 00, OC7A 
125 DATA 00,03, 02,00, 00,01, OA, 00, 00,8 
8,14,00,44,CC, 3C, 00, 0E72 
130 DATA 88,9C,9C, 28, 46, 9C, 9C, 88, 02, C 
C, 44,02, 00,00, 28, 02, 139E 
135 DATA 00,00, 3C, 00, 00,88, CC, 00, 44,9 
C, 00, 2A,3F, 00,51, 2A, 16F2 
140 DATA 00,CC, 88,00, 00, 3C, 88, 00, 44, C 
C, 28, 00,00, 02, 02,00, 1446 
145 DATA UU,U3,UZ, UU, UU, U1, UA, ÜU, OU, U 
0,00, 00,00, CC, 28,00, 1B4A 
150 DATA 00, CC, 3C, 00, 00, CC, 3C, 00, 00, C 
C, CC, 00,00, 00, 03,00, 1EFS 
155 DATA 00, 14,28,00, 00, 14, 28, 00, 00, à 
4,28, 00,00, 3F, 00,00, 2018 
160 DATA 00, CC, 88, 00,00, 3C, B8, 00, 44, C 
C, 28, 00,00, 02, 02,00, 236C 
165 DATA 00,03, 02,00, 00, 01, OA, 00, 00, 0 
0,00, 00,00, 44,6C, 00, 242C 
170 DATA 00,CC,6C, 88, 00, 46, 6C, 88, 00, 1 
6,00, 00,00, 00,88, 00, 27C4 
175 DATA 00,44, 28,00, 00,9C, 14, A2, 15, 2 
B,CC, 2A,3F, 00,00, 2A, 2B1E 
180 DATA 00,44,CC,00, 00, 44, 3C, 00, 00, 1 
4,CC, 88,00, 01,01, 00, 2E18 
185 DATA 00,01,03,00, 00, 05, 02, 00, 00, 0 
0,00, 00,00, 14,CC, 00, 2F03 
190 DATA 00,3C, CC, 00, 00, 3C, CC, 00, 00, C 
C, CC, 00,00, 03, 00, 00, 32AE 
195 DATA 00,14,28,00, 00, 14,28, 00, 00,1 
4,88, 00,00, 00, 3F, 00, 3401 
200 DATA 00,44, CC, 00, 00, 44, 3C, 00,00, 1 


ABONNEZ-VOUS A CPC Plus 


80 F d'économie sur l'achat des disquettes CPC 


12 & de réduesion sur l'abonnement 
5 % de remise sur le catalogue SORACOM 


abonnements ne sont pas rétroactifs. 


Prénom : 


Ville : 
Signature 





4,CC, 88,00, 01,01, 00, 36FB 
205 DATA 00,01,03, 00,00, 05, 02, 00, 00, 2 
8,44,00,00, 3C, CC, BB, 3902 
210 DATA 14,6C,60, 44, 44,6C, 6C, 89, 01,8 
8,CC,01,01,14,00,00, 3D42 
215 DATA 00,3C,00, 00,00, CC, 44, 00, 15, 0 
0,6C,B8, 15, A2, 00,3F, 408D 
220 DATA 00,44,CC, 00,00, 44, 3C, 00, 00, 1 
4,CC,B8,00,01,01, 00, 4387 
225 DATA 00,01,03, 00,00, 05, 02, 00, 00, 0 
0,00, 00,00, 14, CC, 00, 4472 
230 DATA 00,3C, CC, 00,00, 3, CC, 00, 00, C 
C,CC, 00,00, 03, 00, 00, 481D 
235 DATA 00,14,28, 00,00, 14, 28, 00,00, 1 
4,88,00, 00, 00, 3F, 00, 4970 
240 DATA 00,44, CC, 00,00, 44, 3C, 00,00, 1 
4,CC, 88,00, 01,01, 00, 4CGA 
245 DATA 00,01,03,00, 00,05, 02, 00, 00, 0 
0,00,00,00,9C, BB, 00, 4D99 
250 DATA 44,90, CC, 00, 44,9C, 89, 00, 00, 0 
0,29, 00,00, 44, 00,00,511B 
255 DATA 00,14,88,00,51, 28, 6C, 00, 15, C 
C, 14, 24,15, 00, 00, 3F, S40F 
260 DATA 30,30, A4, 30, 30, 75, AA, 30, 75,F 
F, AA, 30,00, 00, 00,00, 5916 
265 DATA 10,30,30, 75,10, 30, 30, 75, 10, 7 
5,FF,FF,00, 00, 00, 00, 5D63 
270 DATA 30,30, A4, 30, 30, 75, AA, 30, 75,F 
F, A4, 30,00, 00, 00, 00, 626A 
275 DATA 10,30, 30,75, 10, 30, 30, 75, 10, 7 
5,FF,FF,00, 00, 00,00, 6687 
280 DATA 00,00, 00, 00, 00, 00, 00, 00, 00,0 
0,00, 00,00, 00, 00, 00, 6687 
285 DATA 00,15, 24, 00,00, 15, 2A, 00,00, 1 
5,24,00,15,3F,3F, 24, 6831 
290 DATA 15,3F,3F, 2A,15,3F,3F, 2,00, 1 
5, 24,00, 00, 15, 2A, 00, 6A29 
295 DATA 00,15, 24, 00,00, 00, 00, 00, 00, 0 






0 U (l je désire m'abonner à CPC Plus pour 1 an au prix de 90 F (6 numéros). Par avion, nous consulter. Les 
7 





0,00, 00,00, 00, 00, 00, 6A6B 
300 DATA CF,00,00, CF, 4D, CF, CB, 4D, 4D, 0 
C, 49, 4D, 4D, 0C, 49, 4D, 7018 
305 DATA 4D,00, 00, D, 4D, CF, CB, 4D, 4D, 0 
C, 49, 4D, 4D, 0C, 49, 4D, 74C4 
310 DATA 4b, 00, 00, ab, D, CF, CB, 4D, 4), U 
C, 49, 4D, 4D, 0C, 49, 4D, 7970 
315 DATA 4D,00, 00, 4D, 4D, CF, CB, 4D, 4D, 0 
C, 49, 4D,0C, 00, 00, 0€, 7D45 
320 DATA 00,00, 00, 00, 00,00, FC, AB,00, 5 
4,00,54,00, 54, 50,54, 8089 
325 DATA 00,A8,F4, 0,00, F8, A8, 50,00, F 
8,F8,50,00,F8, AO, 50, B8DD 
330 DATA 00,F8, 00,50, 00,F8, 00,50, 00, F 
8, 00,50, 00, AB, AO, AO, BE9D 
335 DATA 00,54, 50,54, 00,54, 00,54, 00, 0 
0,FC, A8, 00,00, 00,00, 91E1 
340 DATA AA, 00,55, 8A, DF,55, A2, AA, AA, E 
F, 4,00, 00,55, 00, AA, 992C 
345 DATA 00, 00,55, DF, 00, AA, 00, AA, 55, D 
F, 00,00, 00, AA, AA, 55, 9E91 
350 DATA 00,F7,DF,EF, AA,FB, AA,55, 00, D 
F,00,00, 00, 00, 2A, 00, A503 
355 DATA 2A, AA, 00, AA,55,DF,55,DF, 00, À 
A, 00, AA, 00, 00, A2, A2, ABBI 
360 DATA 51,51,00,00,55,00,55,00,EF, À 
A, EF, AA,55, 00,55, 15, BOBE 
365 DATA 00,15,00, 00, 00,00, EF, 00, AA,5 
5,F7,55,DF, EF, FB,00, B6D6 
370 DATA AA,55,55, 00, 00,00,EF, AA, 55, 0 
0,55,00,EF, AA, 00, 00, BCOG 
375 DATA 55,00, AA, 00, 00,55, DF,55,55,5 
1, AA,EF, 45, AA, 00,55, C211 
380 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0,00,00,00, 11, 22,00, C244 
385 DATA 00, 33, 33,00, 00,37, 38,00, 11,3 
7,33,22,11,3B, 33, 22, CASA 
390 DATA 11,38, 33, 22, 11,3B, 33, 22,00, 3 
3,33,00,00, 33, 33,00, C668 
395 DATA 00,11, 22,00, 00, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, 00, 00, C69B 
400 DATA 00,00, 00,00, 00, FC, AB, 00,54, 0 
0,54,00,54, 50,54, 00, CODF 
405 DATA AB, F4, AO, AB, F8, AB, 50, AB,F8,F 
8,50, A8, F8, A0, 50, AB, D4D3 
410 DATA F8,00, 50, AB,F8, 00, 50, A8, F8, 0 
0,50, AB, AB, AO, AO, AB, DD33 
415 DATA 54,50, 54, 00,54, 00,54, 00,00, F 
C,AB,00, 00, 00, 00, 00, E077 
420 DATA DD,5E, 00, DD, 56,01, DD, 6E, 02, D 
D,66,03,06,08,C5,E5,E731 
425 DATA 06,02, 14, 77,23, 13,10,FA,E1,C 
D, 26,BC,C1, 10,EF,C9, EE23 
430 DATA 15,3F,15,3F,45,45, 45, 45,04, 0 
4,04,04,55,FF, 00,00, F143 
435 DATA 00, 2A, 15, 2A, 00, 84, 00, BA, 00, 0 
8,00,08,55,FF, 00,00, F424 





nn. 





440 DATA 15,3F,15,15,00, 45, 00, 45, 00,0 
8,04,00,55, FF, 00, 00, F68C 
445 DATA 15,3F,15,15,00, 45, 00,45, 00,0 
C,00,04,55,FF, 00, 00, FBFB 
450 DATA 00,15,00,3F,00,CF, 45,45, 04,0 
C,00,04, 00,55, 00, 00, FBOE 
455 DATA 15,3F,15,00,45, 00, 00, CF, 00,0 
4,04,04,55,FF, 00,00, FDEB 
460 DATA 15,3F,15,15,45,00, 45, CF, 04,0 
4,04,04,55,FF, 00,00, 0126 
465 DATA 15,3F,00, 15,00, 45, 00, BA, 00, 0 
8,04,00,55, 00, 00, 00, 02BF 
470 DATA 15,3F,15,15,45,45, 45, CF, 04,0 
4,04,04,55,FF, 00,00, 063F 
475 DATA 19,4, 15,15,45, 45, 45, UF, OU, U 
4,00,04,55,FF, 00, 00, 09B7 
480 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, A 
2,00, 00, 00, 2A, 00, 00, OAB3 
485 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, À 
2,00, 00,00, 2A, 15,00, OB64 
490 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 
0,00, A2, 00, 2A, 00, 00, 0C30 
495 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 0 
0,00, A2, 00, 2A, 15,00, 0D11 
500 DATA 00,88, 00,88, 14, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, 00, 00, 0E35 
505 DATA 00,88, 44,44, 14, 14,00, 14, 00, À 
2,00, 00,00, 2A, 00,00, 104D 
510 DATA 00,88, 00,88, 00, 28, 00, 28, 00, À 
2,00, 00, 00, 2A, 00, 00, 1279 
515 DATA 44,CC,44,CC,14,14,14,14,51,F 
3,51,51,15,15,00,00, 16F9 
520 DATA 44,CC,44,CC,14,14,14, 14,51, A 
2,51,51,15,3F, 00,00, 1B52 
525 DATA 44,CC, 44,CC, 14,00, 14, 00,51,0 
0,51,00,15,3F, 00, 00, 1E90 
530 DATA 44,88,44,CC,14,14,14,14,51,5 
1,51,51,15, 3F,00, 00, 2254 
535 DATA 44,CC, 44, CC, 14,00, 14, 00,51, A 
2,51,00,15,3F, 00, 00, 2634 
540 DATA 44,CC, 44, CC, 14,00, 14, 00,51, A 
2,51,00,15,00, 00, 00, 29D5 
545 DATA 44,CC,44,CC, 14,14, 14, 00,51,0 
0,51,51,15,3F,00, 00, 2D78 
550 DATA 44,44,44,44,14,14,14,14,51,F 
3,51,51,15,15, 00,00, 30E8 
555 DATA 44,CC, 00,88, 00, 28, 00, 28, 00, A 
2,00,A2,15,3F, 00, 00, 3468 
560 DATA 44,CC, 00,88, 00, 28, 00, 28, 00, A 
2,00, 42,15, 2A, 00, 00, 37D3 
565 DATA 44,44,44,44,14,14,14,28,51, A 
2,51,51,15, 15,00, 00, 3806 
570 DATA 44,00,44,00,14,00, 14, 00,51, 0 
0,51,00,15,3F, 00,00, 3CAC 
575 DATA 44,44,44,CC,14,3C, 14, 14,51,5 
1,51,51,15, 15,00, 00, 402A 
580 DATA 44,44, 44,44, 14,30, 14,3C,51,F 





3,51,51,15,15,00,00, 43EA 
585 DATA 44,CC,44,44,14,14,14,14,51,5 
1,51,51, 15, 3F, 00, 00, 4764 
590 DATA 44,CC,44,CC,14,14,14,14,51,F 
3,51,00, 15, 00,00, 00, 4B84 
595 DATA 44,CC, 44,CC,14,14,14,14,51,5 
1,51,51,15,3F, 00, 2A, 4FB6 
600 DATA 44,CC,44,CC,14,14,14,14,51, A 
2,51,51,15,15,00,00,53E5 
605 DATA 44,CC, 44, CC, 14,00, 14,00,51,F 
3,00,51,15,3F,00, 00, 5816 
610 DATA 44,CC, 44, CC, 00, 28, 00, 28, 00, À 
2,00, A2, 00, 2A, 00, 00, 5BF4 
615 DATA 44,44,44,44,14,14,14,14,51,5 
1,51,51,15,3F, 00, 00, SEEC 
620 DATA 44,44,44,44,14,14,14,14,51,5 
1,51,51,00, 2A, 00, 00,61BA 
625 DATA 44,44,44,44,14,14,14,14,51,F 
3,51,F3,15,15,00,00,65CC 
630 DATA 44,44, 44,44, 14, 14, 00,28, 00, À 
2,51,51,15,15, 00,00, 689A 
635 DATA 44,44,44, 44,14, 14,00, 28,00, À 
2,00, A2, 00, 2A, 00, 00, 6B6B 
640 DATA 44, CU, UU, 44, UU, 14, UU, ZH, UU, À 
2,51,00,15,3F,00,00, 6E3F 
645 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, 00, 00, 6E3F 
650 DATA 7C,C6,08,67,D0,D5,11,50,C0, 1 
9,D1,C9, 00, DD, SE, 00, 7544 
655 DATA DD,56,01,DD,6E, 02, DD, 66,03, 0 
6,10,C5,E5,06, 04, 1A, 7B4F 
660 DATA AE, 77,13, 23, 10,F9,E1, CD, 00, À 


| 0,C1,10,EE, C9, 00,00, 8289 


665 DATA 00,00, DD,6E,00,DD,66,01,06, 1 


| 0,AF,77,CD,00, A0, 10, 87D1 


670 DATA F9,C9, 7C,D6,08,67, CB, 74,C0, D 
5,11,80,3F, 19,D1, C9, 90DB 

675 DATA 55,E1,DD,6E, 00, DD, 66, 01, 22,5 
0, A0, C9, 2A, 50, AO, CD, 9862 

680 DATA 42, A0, CD, 42, AO, CD, 42, AO, CD, 4 
2, A0, 22,50, AO, 2A, 50, 9FDD 

685 DATA A0,DD,5E, 00, DD,56, 01, CD, 19, A 
0,C9, 24,50, AO, CD, 00, A722 

690 DATA A0, CD, 00, A0, CD, 00, AO, CD, 00, A 
0,C3,6B, A0, 00, 00, 00, ADD7 

695 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 0 
0,00, 00, 00, 00, 00, 00, ADD7 

700 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 0 
0,00, 00,00, 00, 00, 00, ADD? 

720 CLS:PRINT " FICHIER LANGAGE HACHI 
NE CORRECT..." 

730 PRINT:PRINT:PRINT 

740 PRINT "UNE TOUCHE POUR LA SAUVEGA 
RDE...." 

750 CALL &BB18 

760 SAVE "boulbin",b, 49920, &770 

770 END 





RALF 


Frédéric JULIEN 
Valable pour CPC 6128 





Vous devez aider Raff, le petit 
extra-terrestre, en récupérant 
toutes les cartes se trouvant sur 
votre passage ; tout en faisant 
attention au monstre rouge qui 
veut à tout prix empêcher Ralf de 
retourner chez lui. 


e jeu comporte 7 tableaux et vous 
disposez de 3 vies. 


Astuces : 

Pour avoir des vies à l’infini, éditez 
la ligne 1450 et changez vie = vie —1 par 
vie = vie —. 


10 SYMBOL AFTER 33:DEFINT A-Z:D=1:G 
=8:H=0:B=2 

15 TABL=1:1NK 1,2: INK 2,26: INK 3,6: DVK 
INK 0,0:BORDER O:ENT 1, 100, 2, 2:ENV 
1,100,3,1:SC=0:VIE=3 

20 SYHBOL 255,96, 16,11, 15,25,63,28 >CR 
“7 

30 SYMBOL 
56, 224 

40 SYHBOL 
50 SYHBOL 
4,64,96 
60 SYHBOL 


254,6,8,208, 240, 152,252, 


253,1,7,11,19,2, 2,2,6 
252, 128, 224, 208, 200,64,6 


251,1,3,5,9,25,37,67,255 


70 SYMBOL 
164,194, 255 
80 SYMBOL 249,255, 67, 37,25,9,5, 3,1 
90 SYMBOL 248,255, 194,164,152,144, >LK 
160, 192, 128 

100 SYMBOL 247,255, 255, 255, 255, 255 
,254, 252, 248 

110 SYHBOL 246,255, 255, 255, 255, 255 
,127,63,31 


250, 128,192, 160,144,152, DLA 





120 SYHBOL 
,255, 255, 255 
130 SYHBOL 
55,255, 255 
140 SYHBOL 
150 SYHBOL 
160 SYMBOL 
8,0 

170 SYHBOL 
,0 

180 SYHBOL 
,0 

190 SYMBOL 
0 

200 SYHBOL 


210 SYMBOL 
220 SYHBOL 
0 

230 SYHBOL 
,0 

240 SYHBOL 
250 SYMBOL 





245,248, 252, 254,255, 255 
244,31,63,127,255, 255, 2 
45,0,0,0,126,0,0,0,0 

46,0,0,0,0,0,24, 24,0 

47,6,12, 24, 48,96, 192, 12 
48,60, 36,36, 36, 36, 36,60 
49,16,16,16, 16, 16, 16, 16 
50,60, 36, 4,60, 32, 36,60, 


51,60,36,4, 28,4, 36,60, 0 


52,36,36,36,60, 4,4, 4,0 
53,60, 36,32, 60, 4,36, 60, 


54,60,36, 32,60, 36, 36, 60 


55,60,36,4,12,8,8,8,0 DYU 
56,60, 36, 36,60, 36, 36,60 >CH 
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,0 

260 SYHBOL 
0 

270 SYMBOL 
280 SYMBOL 


290 SYMBOL 
,0 

300 SYHBOL 
310 SYMBOL 
,0 

320 SYHBOL 
4,0 

330 SYMBOL 
,118,0 

340 SYHBOL 
0 

350 SYMBOL 
,0 

360 SYHBOL 
,0 

370 SYHBOL 
,0 

380 SYHBOL 
,0 

390 SYHBOL 
,0 

400 SYHBOL 
,0 

410 SYHBOL 
,0 

420 SYHBOL 
430 SYHBOL 
440 SYHBOL 
,0 

450 SYHBOL 
,0 

460 SYHBOL 
,0 

470 SYHBOL 
,0 

480 SYHBOL 
,0 

490 SYHBOL 
,0 

500 SYHBOL 
,0 

510 SYHBOL 
,0 

520 SYHBOL 


530 SYABOL 
540 SYHBOL 
,0 
550 SYHBOL 
0 
560 SYMBOL 


57,60,36, 36,60, 4,36,60, 


58,0,0,24,24,0,24,24,0 


59,0,0,24,24,0,24,24,48 


60, 12,24, 48,96, 48,24, 12 


61,0,0,126,0,0,126,0,0 
62,96, 48,24, 12,24, 48,96 


63,60, 102, 102, 12,24, 0, 2 
64,96, 16, 120, 12, 124, 204 
65,28, 34,34, 34,62, 34,34 
66,62, 34, 38,56, 38, 34, 62 
67,62, 34,32, 32, 32, 34,62 
68,60, 34,34, 34, 34, 34,60 
69,62, 34, 32,56, 32, 34, 62 
70,62, 34,32, 56, 32, 32, 32 
71,60,66,64,64, 66, 66,62 
72,34,34,34,62, 34,34, 34 
13,62,8,8,8,8,8,62, 0 
74,14,4,4, 4, 4,68, 120,0 
75,34,34,36,56, 36, 34, 34 
76,32, 32, 32, 32, 32, 32,62 
77,34,34,54, 42, 34,34, 34 
78, 34,50, 42, 38, 34,34, 34 
79,28, 34,34, 34, 34,34, 28 
80,60, 34, 34,60, 32, 32, 32 
81,28, 34, 34,34, 36, 34, 24 
82,62, 34, 34,60, 34, 34, 34 
83,62, 34, 32,62, 2, 2,62,0 


84,62,8,8,8,8,8,8,0 
85, 34, 34, 34, 34, 34, 34, 62 


66,34,34,34,34,34,20,8, 


87,34, 34,34, 42, 42,54, 34 


>BU 


>2G 


0 

, 

570 SYMBOL  88,34,34,20,28,54, 34,34 
0 

’ 

580 SYHBOL 89,34, 34,34, 28, 8,8,28,0 


580 SYABOL 90,62, 34,2, 4,8,18,62,0 
600 SYMBOL 243,63,31,8, 14,7,7,3,3 
610 SYMBOL 242,252, 248, 16,112, 224,2 
24, 192, 192 

620 SYHBOL 241,192,96,51,31,31,51,5 
7,61 

630 SYHBOL 240, 3,6, 204, 248, 248, 204, 
156, 188 

640 *HHRHANMENNENENES 

650 ’# ASSEMBLAGE # 

660 "HHRANNHENHEINNES 

670 H$=CHR$(255)+CHR$ (254) +CHR$ (8) + 
CHR$(8)+CHR$(10)+CHR$ (253) +CHR$ (252 
) 

680 M$=CHR$(251)+CHR$ (250) +CHR$(B)+ 
CHR$(8)+CHR$(10)+CHR$ (249) +CHR$ (248 
) 

690 C$-CHR$(247)+CHR$(246)+CHR$ (8) + 
CHR$(B)+CHR$(10)+CHR$(245)+CHR$(244 
) 

700 E$=CHR$(241)+CHR$(240)+CHR$(8)+ 
CHRS (8) +CHRS (10) +CHR$ (243) +CHRS (242 
) 

705 S$=CHR$(128) +CHR$ (128) +CHR$ (8) + 
CHR$(B)+CHR$(10)+CHR$(128)+CHR$ (128 
) 

710 "HHHAANAHAEES 

720 '# MENU # 

730 "HHHHHAEHENNE 

740 MODE 1:PEN 1:FOR T=1 TO 40 STEP 
2:LOCATE T,B:PRINT M$:NEXT:FOR T=1 
TO 40 STEP 2:LOCATE T,21:PRINT M$: 

NEXT 

789 PRINT CHR$(23)CHR$ (1) ; : TAG:HOVE 
170,236,1:PRINT"1) START GAME"; :M0 
VE 172,238,2:PRINT"1) START GAME"; 
790 MOVE 170,188,1:PRINT "2) JOYSTI 
CK";:MOVE 172,190,2:PRINT "2) JOYST 
ICK"; 

800 MOVE 170,142,1:PRINT "3) KEYBOA 
RD"; :MOVE 172,140,2:PRINT "3) KEYBO 
ARD" ; : TAGOFF 

810 IF D=1 THEN LOCATE 23,17:PEN 2: 
PRINT CHR$(227) 

820 IF D=75 THEN LOCATE 23,14:PEN 2 
:PRINT CHR$(227) 

830 IF INKEY(14)=0 THEN D=75:G=74:H 
=72:B=73:LOCATE 23,17:PRINT CHR$(12 
8):G0T0 810 

835 PEN 2:LOCATE 5,25:PRINT "RALF B 
Y JULIEN FREDERIC (1990)" 

840 IF INKEY(5)=0 THEN D=1:G=8:H=0: 


TC 





B=2:LOCATE 23,14:PRINT CHR$ (128) :G0 
TO 810 

850 IF INKEY(13)=0 THEN CLS:G0TO 87 
0 

855 PEN 1:LOCATE 5,25:PRINT "RALF B 
YŸ JULIEN FREDERIC (1990)" 


860 GOTO 830 
870 "HNHHNNEHANEEEN 
880 ’# DECOR * 


690 ‘uwrantusnnssus 

900 PEN 1:FOR T=1 TO 40 STEP 2:LOCA 
TE T,1:PRINT M#$:NEXT 

910 PEN 1:FOR T=1 TO 40 STEP 2:LOCA 
TE T,17:PRINT M$:NEXT 

920 PEN 1:FOR T=3 TO 15 STEP 2:LOCA 
TE 1,T:PRINT M$:NEXT 

930 PEN 1:FOR T=3 TO 15 STEP 2:LOCA 
TE 39,T:PRINT M$:NEXT 

940 PAPER 3:PEN 2:LOCATE 1,20:PRINT 
CHR$(227)+STRINGS (38, 227) +CHR$ (227 
) 

950 PEN 2:LOCATE 1,24:PRINT CHR$ (22 
T)+STRINGS(38,227)+CHR$ (227) 

960 PEN 2:FOR T=21 TO 23:LOCATE 1,7 
:PRINT CHR$(227) :NEXT 

970 PEN 2:FOR T=21 TO 23:LOCATE 40, 

T:PRINT CHR$(227) :NEXT:PAPER 0 

980 TAG:HOVE 70,61, 1:PRINT"SCORES 0 

00 LIVES 4 LEVEL 1"; :MOVE 72,63 
»2:PRINT'SCORES 000 LIVES 3  LEV 

EL 1*::TAGOFF: 

990 ? HHNHNNENNNARAUEE 

1000 ’*# RESTORE TAB + 

1010 "HHRNRERNNNHHNNEE 

1020 IF TABL=1 THEN XC=37:YC=3:XD=1 
1:YD=7:F=300:RESTORE 1220:GO0T0 1170 


1030 1F TABL=2 THEN XC=17:YC=7:XD=2 
7:YD=7:f=800:RESTORE 1490:G0T0 1170 


1040 IF TABL=3 THEN XC=17:YC=3:XD=1 
1:yd=3:f=1400:RESTORE 1550:G0T0 117 
0 

1050 IF TABL=4 THEN XC=35:YC=5 :XD=2 
5:YD=5:F=2300:RESTORE 1670:G0T0 117 
0 

1060 IF TABL=5 THEN XC=35:YC=3:XD=2 
1:YD=3:F=2900:RESTORE 1730:G0T0 117 
0 

1070 IF TABL=6 THEN 1C=35:YC=5:XD=1 
9:YD=9:F=3400:RESTORE 1780:G0T0 117 
0 

1080 IF TABL=7 THEN XC=21:YC=3:XD=1 
1:YD=3:F=3900:RESTORE 1910:G0T0 117 
0 

1090 IF TABL=8 THEN 1810 

1100 IF TABL=9 THEN XC=37:YC=3:XD=1 
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1:YD=7:RETORE :G0TO 

1110 IF TABL=10 THEN XC-37:YC=3:XD- 
11:YD=7:RETORE :GOTO 

1130 IF TABL-=11 THEN ’GAGNE 

1140 "HHHMNEHNMNAUNES 

1150 ’# AFFICHE TAB # 

1160 "HHHANHENNENANEE 

1170 READ X,Y:1F X=-1 THEN 1180 ELS 
E LOCATE X,Y:PEN 1:PRINT M$:PAPER 0 
:GOTO 1170 

1180 READ X,Y:1F X=-1 THEN 1280 ELS 
E LOCATE X,Y:PAPER 1:PEN 2:PRINT C$ 
:PAPER 0:G0T0 1180 

1190 YHRHMNHHNENINNEE 

1200 ’#  TABLEAU 2 # 

1210 "HAMMAM 

1220 DATA 5,5,7,5,9,5,11,5,13,5,15, 
5,17,5,19,5,21,5,23,5,25,5,27,5,29, 
5,31,5,33,5,35,5,37,5,5,7,23,7,27,1 
137,7,5,9,9,9,11,9,13,9,17,9,23,9,2 
7,9,37,9,5,11,13,11,17,11,37,11,5,1 
3,7,13,9,13,11,13,15,13,17,13,25,13 
,37,13,25,15,29,15,31,15,33,15,35,1 
5,37,15 

1230 DATA -1,-1 

1240 DATA 25,7,15,11,13,13,-1,-1 
1250 "HRSHNEHNNNEHNNEE 

1260 *# DEPLACEMENT # 

1270 VHHHNNEHEHNEHNNEE 

1280 ORIGIN 0,400:X=1C:Y=YC:X1=1D:Y 
1=YD:LOCATE 1,Y:PEN 2:PRINT H$:PEN 
3:LOCATE X1,Y1:PRINT ES$:FOR t=1 TO 
500:NEXT 

1285 SENS=INT (RND#4) +1 

1290 IF INKEY(D)=0 THEN C=TEST((X+2 
)#16-8,-(Y#16)+6):1F C=1 THEN 1330 
ELSE IF C=2 THEN LOCATE X,Y:PRINT S 
$:X=1+2:LOCATE X,Y:PRINT H$:GOSUB 1 
410 ELSE LOCATE X,Y:PRINT S$:1=X+2: 
LOCATE X,Y:PRINT H$:SOUND 1,300,5,1 
51,1,15:IF X=X1 AND Y=Y1 THEN 1450 
ELSE 1330 

1300 IF INKEY(G)=0 THEN C=TEST((X-1 
)#16-8,-(Y#16)+6):1F C=1 THEN 1330 
ELSE ÎF C=2 THEN LOCATE 1,Y:PRINT 5 
$:X=1-2:LOCATE 1,Y:PRINT H$:GOSUB 1 
410 ELSE LOCATE X,Y:PRINT S$:1=X-2: 
LOCATE X,Y:PRINT H$:SOUND 1,300,5,1 
5151,15:1F X=X1 AND Y=Y1 THEN 1450 
ELSE 1330 

1310 IF INKEY(H)=0 THEN C=TEST((X#1 
6)-8,-(((Y-1)#16)-6)):1F C=1 THEN 1 
330 ELSE IF C=2 THEN LOCATE X,Y:PRI 
NT S$:Y=Y-2:LOCATE X,Y:PRINT H$:G0S 
UB 1410 ELSE LOCATE X,Y:PRINT S$:Y- 
Y-2:LOCATE X,Y:PRINT H$:SOUND 1,300 
59511,1.15:1F X=X1 AND Y=Y1 THEN 1 


>RC 


>RQ 
>RL 


Y 


AB 


450 
1320 IF INKEY(B)=0 THEN C=TEST((X#1 
6)-8,-(((Y+2)#16)-6)):1F C=1 THEN 1 
330 ELSE IF C=2 THEN LOCATE 1,Y:PRI 
NT S$:Y=Y+2:LOCATE X,Y:PRINT H$:G0S 
UB 1410 ELSE LOCATE X,Y:PRINT S$:Y= 
Y+2:LOCATE X,Y:PRINT H$:SOUND 1, 300 
,951,1,1,15:IF X=X1 AND Y=Y1 THEN 1 
450 
1330 IF SENS=1 THEN C=TEST((X1+2)#1 
6-8,-(Y1#16)+6):1F C=1 THEN 1285 EL 
SE LOCATE X1,Y1:PRINT S$:11:11+2:PE 
N 3:LOCATE X1,Y1:PRINT E$:1F X=X1 A 
ND Y=Y1 THEN 1450 ELSE PEN 2:GOT0 1 
290 
1340 IF SENS=2 THEN C=TEST((X1-1)#1 
6-8,-(Y1#16)+6):1F C=1 THEN 1285 EL 
SE LOCATE X1,Y1:PRINT S$:11=X1-2:PE 
N 3:LOCATE X1,Y1:PRINT E$:1F X=X1 À 
ND Y=Y1 THEN 1450 ELSE PEN 2:GO0T0 1 
290 
1350 IF SENS=3 THEN C=TEST((X1#16)- 
8,-(((Y1-1)#16)-6)):1F C=1 THEN 128 
5 ELSE LOCATE X1,YL:PRINT S$:Y1=Y1 
-2:PEN 3:LOCATE X1,Y1:PRINT E$:1F X 
=X1 AND Y=Y1 THEN 1450 ELSE PEN 2:G 
OTO 1290 
1360 IF SENS=4 THEN C=TEST((11#16)- 
8,-(((Y1+2)#16)-6)):1F C=1 THEN 128 
5 ELSE LOCATE X1,Y1:PRINT S$:Y1=Y1+ 
2:PEN 3:LOCATE X1,Y1:PRINT E$:1F X= 
X1 AND Y=Y1 THEN 1450 ELSE PEN 2:G0 
TO 1290 
1370 PEN 2:G0T0 1290 
1380 "HHNHMNENNENHEX 
1390 ? #RECUPERATION# 
1400 "HHHHHHHHNNANNE 
1410 LOCATE 12,22:PRINT * ":0RIG 
IN 0,0:SOUND 1,200,10,1,1,15:SC=SC+ 
100:TAG:MOVE 160,61,1:PRINT SC;:MOV 
E 162,63,2:PRINT SC; :TAGOFF:1F SC=F 
THEN TABL=TABL+1:WINDOW#1, 3,38, 3,1 
6:PAPER#1,0:CLS#1:GOTO 1415 ELSE OR 
IGIN 0, 400:RETURN 
1415 LOCATE 34,22:PRINT " ":O0RIGIN 
0,0:TAG:HOVE 530,61,1:PRINT tabl; : 
MOVE 532,63,2:PRINT tabl ; : TAGOFF :G0 
TO 1000 
1420 HANNAH 
1430 '# VIE -1 # 
1440 "HHHNNHHHENENNEX 
1450 vie=vie-{:LOCATE xi,y1:PRINT s 
$:1F vie=0 THEN 1460 ELSE ENV 1.1.0 
,10,5,-1,5,5,-1,3:SOUND 7,2300,50, 1 
5,1,,15:FOR w=1 TO 9:FOR z=20 TO 1 
STEP -2:OUT &BC00,5:OUT &BDOO, z:NEX 
T:NEXT:OUT &BCO0,S:OUT &BD00, 0: ENT 


>AQ 


V 


HK 


TV 


v 


V 


RZ 


>NN 
)YE 
)YF 
)IH 
>FQ 


YA 
)YB 











1,100,2,2:ENV 1,100,3,1 

1455 LOCATE 24,22:PRINT " ":O0RIGIN 
0,0:TAG:HOVE 360,61,1:PRINT vie::M 
OVE 362,63,2:PRINT vie; :TAGOFF:0RIG 
IN 0,400:G0T0 1280 

1460 "HAANNNHHNEENNS 

1470 ‘#  TABLEAU 2 # 

1480 "HHHHNNHNEHNIENS 

1490 DATA 3,3,5,3,9,3,11,3,13,3,37, 

3,3,5,9,5,11,5,13,5,17,5,19,5,21,5, 

25,5,27,5,29,5,31,5,33,5,37,5,3,7,5 
1,9,7,33,7,37,7,3,9,9,9,13,9,15,9, 
17,9,19,9,23,9,25,9,27,9,29,9,37,9, 

3,11,5,11,9,11,15,11,25,11,33,11,37 
11 

1500 DATA 3,13,5,13,9,13,11,13,13,1 

3,15,13,17,13,19,13,21, 13,23, 13,25, 
13,29, 13,31,13,33, 13,37, 13,3,15,5,1 

5,37,15,-1,-1 

1510 DATA 5,5,23,5,5,9,33,9,19, 11, - 
1,-1 

1520 "HHNNNHEMNEINNE 

1530 '#  TABLEAU 3 # 

1540 YHHNNNHHANEHNNE 

1550 DATA 7,3,9,3,37,3,5,5,7,5,13,5 

,17,5,21,5,23,5,25,5,27,5,29,5,33,5 
537,5,5,7,13,7,15,7,17,7,19,7,21,7, 

23,7,25,7,27,7,29,7,33,7,37,7,5,9,1 

1,9,13,9,15,9,17,9,19,9,21,9,23,9,2 

5,9,27,9,29,9,33,9,5,11,29,11,33,11 

537,11 

1560 DATA 5,13,7,13,9,13,13,13,15,1 

3,17,13,19,13,23, 13,25, 13,29, 13,33, 

13,37,13,13,15,25,15,37,15,-1,-1 

1570 DATA 5,3,15,5,19,5,37,9,15,15, 

23,15,-1,-1 

1580 "HANNAH 

1590 ’# GAME OVER # 

1600 "HHHNMHHANHEUNUNE 

1610 WINDOW#1,15,25,8,10:PAPER#1, 3: 

CLS#1 

1620 PAPER 3:PEN 1:LOCATE 16,9:PRIN 

T'GAME OVER" :PAPER 0 

1630 FOR T=1 TO S000:NEXT:GOTO 15 

1640 "HHHHMHHHNNENNS 

1650 ’# TABLEAU 4 # 

1660 "HHHNNESHNEENNE 

1670 DATA 9,3,11,3,19,3,21,3,25, 3,2 


! 7,3,29,3,33,3,35,3,37,3,5,5,13,5,37 


,55,7,9,7,17,7,21,7,23,17,25,7,29,7 
,31,7,33,7,37,7,7,9,9,9,13,9,17,9,3 
3,9,5,11,9,11,17,11,21,11,23,11,27, 
11,29,11,37,11,5,13,9,13,11,13,15,1 
3,17,13,29,13, 33,13, 37, 13 

1680 DATA 3,15,5,15,21, 15,23, 15, 37, 
15,-1,-1 

1690 DATA 23,3,31,3,13,7,27,7,5,9,3 





12 


>DY 





7,9,25,11,33,11,13,13,-1,-1 


1700 "arreter YA 
1710 ’# TABLEAU 5 # Ni: 
1720 "HHÉNNEREUEHEHNNE >tC 


1730 DATA 37.3.13.5,15.5.17.5,19.5. >DB 
21,5,23,5,31,5,33,5,5, 7,11, 7,27,7,5 
,9,11,9,17,9,19,9,21,9, 23,9, 25,9, 29 
,9,31,9,33,9,37,9,5,11,7,11,11,11,1 
5,11,33,11,37,11,5,13,9,13,11,13,15 
,13,19,13,21,13, 23, 13, 25, 13, 27, 13,2 
9,13,31,13,33,13,15,15, 37,15, -1, -1 

1740 DATA 5,5,11,5,15,9,27,9,7,13,3 KF 


7,13,-1,-1 

1750 "HHHANAANEEANE YF 
1760 *# TABLEAU 6 # »YG 
1770 "HHANNYAANEENEE >YH 


1780 DATA 9,3,11,3,15,3,17,3,19,3,2 »VWV 
1,3,23,3,25,3, 27,3, 29, 3,31,3,33,3,3 
5,3,37,3,5,5,9,5,37,5,5,7,9,5, 11,7, 
13,7,15,7,17,7,19, 7,21, 7,23, 7,27,7, 
29,7,31,7,33,7,35,7,37,7,5,9,23,9, 2 
7,9,35,9,37,9,5,11,7,11,19,11,27,11 
,33,11,35,11,37,11,5,13,7,13,9,13,1 
1,13 


1790 DATA 13,13,15,13,17,13,21,13,2 >QK 
3,13,31,13,33, 13,35, 13,37, 13,23, 15, 
37,13,31,13,33,13,35,13,37,13,-1,-1 
1800 DATA 13,3,17,7,31,11,19,13,27, DHF 
13,-1,-1 

1810 "HHARNHENMENENES >YC 
1820 '#  GAGNE Li >YD 
1830 'HHHANEHNNNHNNEE )YE 
1840 OUT &BCO00,7:OUT &D00, 40 > 


1850 FOR 7-3 TO 38:FOR E=3 TO 16:PE IH 

N 1:LOCATE T,E:PRINT CHRS#(207) :NEXT 
E,T 

1860 SYMBOL AFTER 32:PRINT CHRS(23) 
CHRS (1); :TAG:MOVE 110, 320, 3:PRINT"B 

RAVO,GRACE A VOUS RALF"; :MOVE 110,2 
00,3:PRINT"PEU RETOURNER CHEZ LUI"; 


>BZ 


1870 OUT &BCO0, 7:OUT &BDO0, 30:FOR T >BX 
=1 TO 9000:NEXT:GOTO 15 


1880 "HHHANEHNNEENNEE >YK 
1890 ‘# TABLEAU 7 # ZA 
1900 "HHHHNEENNNNANNES >)YC 
1910 DATA 25,3,27,3,29,3,33,3,35,3, >GX 


37,3,5,5,7,5,9,5,11,5,15,5,17,5, 19, 
5,21,5,37,5,37,5,5,7,21,7,37,7,5,9, 
11,9,21,9,25,9, 27,9, 29,9,33,9,35,9, 
37,9,11,11,13,11,15,11,17,11,19, 11, 
21,11,37,11,5,13,37,13,13,15,15,15, 
17,15,19,15,23,15,25, 15,27, 15, -1,-1 


VV 


1920 DATA 31,3,13,5,31,9,5,11,21,15 DFU 


"1-1 


JaU 


AGENT Z33 


Philippe MENAGER 


Valable pour CPC 464 - 6128 





“Agent 233, voici vos instructions : vous devez 
récupérer les morceaux de microfilm cachés par 
l'agent Z32 sous les pyramides d'Egypte. 
Attention aux sbires de Mr Big”. 


10 REM HYMNE NET 

20 REM ## AGENT SECRET 233 #4# 

30 REM #4 # 

40 REM ###Philippe MENAGER+### 

50 MODE 1:1INK 0,0:BORDER O:INK 1,7: 
INK 2,15:INK 3,8:Z-0 

60 A$#-"AGENT SECRET Z 
3 3":Y=8:GO0SUB 90 

70 A$="par":Y=12:G0SUB 90 


>TF 
JL 
>NH 
>YA 
20) 


>UC 


>WK 


80 A$="Philippe Ménager":Y-16:Z-1  >HZ 
90 A=(40-LEN(A$) )/2 >MA 
100 LOCATE A,Y:PEN 2:PRINT A$:PEN 1 >BH 
:LOCATE A,Y+1:PRINT STRINGS(LEN(A$) 
,154) 

110 IF Z=0 THEN RETURN >QU 
120 PEN 3:LOCATE 2,24:PRINT"Chargen >EQ 
ent en cours ..." 


130 RUN" '!AGENTI" LU 








10 REM #H#NM NN NME 

20 REM ## #+ 

30 REM ## AGENT SECRET 233 #4 

40 REM #4 ## 

50 REX ###Philippe Ménager*## 

60 HODE 1:1NK 0,0:INK 1,26:INK 2,7: 
INK 3,2:BORDER 0 

70 KEY 139,CHR$(13)+"MODE 2:1INK 1,2 
6:PEN 1:LIST*" 

80 WINDOW#1,2,39,1,24:PAPER8#1, 1:CLS 
#1:PEN#1,0 

90 SC=0:VIES=3:C0D=0:TA=1 

100 DIM ED(4):DIM EG(4):DIM PB(20,2 
5):DIM TA(G) 

110 HHEHANENENEENNEENNES 

120 "###4PRESENTATION#### 

130 PHHHHMNRNNNNNNNEENNNE 

140 GOSUB 360 

150 PEN 1:Z-0:TA=1:SC-0:VIES=3 

160 FOR 1=1 TO 24:LOCATE 1, L:PRINT 
CHR$(129) :LOCATE 40,1:PRINT CHR$(12 
9) 

170 NEXT ! 

180 GOSUB 4660 

190 CLS#1 

200 A$="Agent 233 voici vos instruc 
tions:":A=LEN(A$)+2:Y=4:7=2:G0OSUB 2 
70 

210 A$="Vous devez récupérer les mo 
rceaux":A=LEN(A$)+2:Y=7:GOSUB 270 
220 A$="du sicrofils cachés par l'a 
gent 232":A=LEN(A$)+2:Y-9:GOSUB 270 


230 A$="sous les pyramides d' Egypt 
e.":A=LEN(A$)+2:Y=11:G0SUB 270 

240 A$="Attention aux sbires de":A= 
LEN(A$)+2:Y=14:G0SUB 270 

250 Af="Mister Big !":A=LEN(AS)+2:Y 
=16:G0SUB 270 

260 A$="ESPACE ou FIRE pour cossenc 
er":A=LEN(A$)+2:2Z=1:Y=20 

270 FOR 1=1 TO A 

280 PEN#1,3:LOCATER1, ((40-A)/2)+1,Y 
:PRINTH1,MIDS (AS, 1,1) :SOUND 1,200, 1 
,15:SOUND 1,0,5:NEXT 

290 IF Z=2 THEN LOCATE#1, (40-A)/2+1 
,Y+1:PEN#1,2:PRINT#1, STRINGS(LEN(AS$ 
),125) 

300 IF Z-0 OR Z=2 THEN Z=0:RETURN 
310 J=J0Y(0):1F JC>16 THEN 330 


320 IF J=16 THEN 340 

330 IF INKEY(47)00 THEN 310 

340 GOTO 1090 

350 HRHANERNNNHNNEEN 

360 *###4GRAPHIQUES#### 

370 HR 

380 SYNBOL AFTER 120 

390 SYHBOL 129,195,231,255,255,255, 
255,231,195 

400 "====Paysag 
410 SYMBOL 124,255,255, 255,255, 255, 
255,255,255 

420 SYMBOL 125,0,0,0,255,255 

430 SYHBOL 130,0,0,0,0,0,0, 48,48 
440 SYMBOL 131,0,0,0,0,0,0,8, 12 

450 SYMBOL 132,0,0,0,0,1,1,3,3 

460 SYMBOL 133,120, 120, 252,252, 254, 
254,255,255 

470 SYHBOL 134,4,6,2,3,1,1 

480 SYMBOL 135,0,0, 0, 128, 128, 192, 19 
2,224 

490 SYMBOL 136,7,7,15,15,31,31,63,6 
3 

500 SYMBOL 137,255,255,255,255,255, 
255,255,255 

510 SYHBOL 138, 128, 128, 192, 192, 224, 
224,240,240 

520 SYMBOL 139,96, 120,56,60,28,30,1 
4,15 

530 SYMBOL 140,0,0,0,0,0,0,0,3 

540 SYMBOL 141,0,0,0,0,0,0,0, 144 
550 SYMBOL 142,2,0,7,6,4 

560 SYHBOL 143,160, 252, 244, 32 

570 SYMBOL 144,0,0,0, 128,192,64,64, 
64 

580 SYMBOL 145,0,0,0,0,0,0,1,1 

590 SYMBOL 146,0,0,96,96, 240, 240, 24 
8,248 

600 SYMBOL 147,0,0,16,24,8,12,4,7 
610 SYMBOL 148,3,3,7,7,15,15,31,31 
620 SYMBOL 149,252,252,254,254,255, 
255,255,255 

630 SYABOL 150,3,3,1,1 

640 SYMBOL 151,0,0,0,0,0,0, 128,128 
650 SYMBOL 152,0, 128, 128,224, 224,24 
0,112,120 

660 SYMHBOL 153,0,0,0,0,1,1,0,3 

670 SYMBOL 154,0,0,0.0, 204, 80, 126,2 
50 

680 SYMBOL 155,0,0,0,0,0,0,0,57 
690 SYMBOL 156,0,0,0,0,3,2,0,7 

700 SYHBOL 157,0,0,0,0, 152, 160, 252, 
248 

710 SYMBOL 158, 3,2 

720 SYMBOL 159,16 

730 SYMBOL 160,42,15,127,98,64 

740 SYMBOL 161,6, 196,64 


LA) 
>VP 
FE 
>RJ 
>RK 
)TA 
>PX 
>My 


>RE 
>WP 


NT 
)YR 
>1B 
y 
HR 


>TP 
)FJ 


)CJ 


>HU 


>MHX 


)EB 


)vQ 
NE 
RT 
DK 
)CA 


>VA 
>FF 


»2Q 
)AD 
)MR 


»1Q 
>vQ 
)DT 


>HC 
)LY 
>1Z 
>0Y 





750 SYHBOL 162, 32 
760 SYMBOL 163,64,64,96, 32, 32, 32, 32 
,32 

770 SYABOL 164,0,0,0,8, 12,4, 4,4 

780 SYMBOL 165, 128, 128, 192,64, 64,64 
,64,64 

790 SYHBOL 166,0,0,0,0, 48, 48, 120, 12 
0 

800 SYHBOL 167,0,0,0,0, 8, 12,4,6 

810 SYHBOL 168,0,0, 1,1, 3,3, 7,7 

820 SYHBOL 169,252, 252, 254, 254,255, 
255,255, 254 

830 SYHBOL 170,0,0, 0,0, 48, 48, 120, 12 
0 

840 SYHBOL 171,2,3,1,1,0,0,0,1 

850 SYHBOL 172,0, 128, 128, 192, 200, 20 
4,132, 134 


860 SYHBOL 173,15,15,31,31,63,63, 12 


7,127 

870 SYHBOL 174,254,252,253,249,251, 
243,24/,241 

880 SYMBOL 175,252, 252, 254,254, 255, 
255,255,255 

890 SYHBOL 176,1,3,2,6,4,12,8,8 

900 SYHBOL 177,2,3,1,1 

910 SYABOL 178,0, 128, 128, 192, 192, 22 
4,96,112 

920 SYMBOL 179,0,0,0,0,0,0, 128, 128 
930 "===-Personnage et obiet==== 
940 SYMBOL 180,6,6,60, 15, 20,98, 2,0: 
BD$=CHR$ (180) 

950 SYHBOL 181,96,96,60, 240, 40, 70,1 
28:BG$-CHR$ (181) 

960 SYMBOL 182,255, 129, 159, 159, 158, 
158,156, 240: MUR$=CHR$ (182) 

970 SYMBOL 183,56,56, 146, 124, 16, 40, 
40,40:BT$=CHR$(183) 

980 SYMBOL 184,66, 126,66, 126,66, 126 
,66,126:ECH$=CHR$ (184) 

990 SYMBOL 185, 24,24, 126, 126,24, 24, 
B:TOMB$=CHR$ (185) 

1000 SYMBOL 186,0, 126,96,96,96,96,9 
6,0:MUR2$=CHR$ (186) 

1010 SYMBOL 187,0,0,0,0,1,1,3,15:MU 
R3$=CHR$ (187) 

1020 SYMBOL 188, 130,68, 0,0,0,68, 130 
:C0D$=CHR$ (188) 

1030 SYMBOL 189, 124, 130, 186, 162, 186 
,130,124:C0D1$-CHR$ (189) 

1040 SYMBOL 190, 130,68,0,0,0,0,68,1 
30:F$=CHR$(190) 

1050 SYMBOL 191,124, 130, 186, 162, 178 
,162,130,124:F1#-CHR$(191) 

1060 SYMBOL 192,0,0,0,0,0,0,52, 127: 
TOMB1$-CHR$ (192) 

1070 RETURN 

1080 "HHHNNENNMENENEENNNENNNESE 





LT 
DV 


>UN 


>FB 
>YB 


1090 *###AFFICHAGE PAYSAGE###x 

1100 HHHAMENNNNENNEENNNENNNES 

1110 MODE O:INK 1,15:INK 2,3:INK 3, 
18: INK 4,6:INK 5,13:INK 6,24: INK 7, 
11:INK 8,26:INK 9,26:INK 10,7:INK 1 
1,26:INK 12,13,26:WINDOW#1,1,20,1,3 
:PAPER#1, 7:CLS#1 

1120 MTR$=-CHR$(22)+CHR$ (1) :MN$=CHR$ 
(22)+CHR$(0):PRINT#1,HTRS 

1130 PEN#1,1 

1140 LOCATE#1,3, 1:PRINT#1,CHR$(130) 
:PEN#1,2:LOCATE#,3, 1:PRINT#1,CHR$( 
131) 

1150 PEN#1, 1:LOCATE#1,2,2:PRINTH1,C 
HR# (132) ;CHR$ (133) 

1160 PEN#1,2:LOCATE#1,3,2:PRINT#1,C 
HR$ (134) ;CHR$ (135) 

1170 PEN#1,1:LOCATE,2,3:PRINT#1,C 
HR$ (136) ;CHR$ (137) ;CHR$ (138) 

1180 PEN#1,2:LOCATE#1,4,3:PRINT#1,C 
HR$ (139) 

1190 PEN#1,3:LOCATE#1,5,2:PRINTH1,C 
HR$ (140) ;CHR$(141) :LOCATE#1,5,3:PRI 
NT#1,CHR$(142) :CHR$(143) 

1200 PEN#1,1:LOCATE#1,6,3:PRINT#1,C 
HR$ (144) 

1210 LOCATE#1, 7,2:PRINT#1,CHR$(145) 
;CHR$(146) :PEN#1,2:LOCATE#1,8,2:PRI 
NT#1,CHR$(147) 

1220 PEN#1, L:LUCATER1, /,3:PRINTH1,C 
HR$(148) ;CHR$(149) ;CHR$(151) 

1230 PEN#1,2:LOCATE#1,8,3:PRINT#1,C 
HR$ (150) ;CHR# (152) 

1240 PEN#1,3:LOCATE#1,10,2:PRINT#1, 
CHR$ (153) ;CHRS (154) ;CHRS (155) ;CHR$( 
156) ;CHR$(157) ; :LOCATE#1, 10, 3:PRINT 
#1,CHR$ (158) ;CHR$(159) ; CHR$ (160) ;CH 
R$(161) 

1250 PEN#1,1:LOCATE#1,11,3:PRINT#1, 
CHR$ (163) :CHR$(164) ;CHR$(32) ;CHR$(1 
65) 

1260 PEN#1, 1:LOCATE#1,17,1:PRINTH1, 
CHR$(166) :PEN#1,2:LOCATE#1,17,1:PRI 
NT#1,CHR$(167) 

1270 PEN#1, 1:LOCATE#1,16,2:PRINTH, 
CHR$ (168) ;CHR$ (169) ;CHR$(170) :PENE1 
»2:LOCATE#1,17,2:PRINT#1,CHR$(171); 
CHR$(172) 

1280 PEN#1,1:LOCATE#1,16,3:PRINT#1, 
CHR$(173) :CHR$ (174) ;CHR$(175) ;CHR$#( 
179) :PEN#1,2:LOCATE#1,17,3:PRINT#1, 
CHR$ (176) ;CHR$(177) ;:CHR$(178) 

1290 "RHONE 
1300 "####AFFICHAGE TABLEAUX###% 
1310 PHHAMMRHNNEENNNENNEENNNEENX 
1320 WINDOW#2, 1,20,4,24:PAPER#2,0:C 


542 


>YC 
)IE 
>RJ 


)YE 
IG 
>IH 
>GV 


1330 PRINTHZ,NTR$S:RESTURE 1510 


1340 ON TA GOSUB 1500, 1780, 2040,231 


0, 2580, 2850 

1350 CLS#2:PEN#2, 12:LOCATE#2, 7,10:P 
RINT#2, "TABLEAU ":;USING"#":TA 

1360 FOR H=1 TO 2000:NEXT 

1370 CLS#2 

1380 FOR B=1 TO 20:FO0R A=1 TO 20:PB 
(A,B)=0:NEXT:NEXT 

1390 FOR B=1 TO 20:READ DATS:FOR A- 
1 TO 20 

1400 C$=HID$(DATS, A, 1):C=VAL(CS) 
1410 IF C=1 THEN PB(A,B)=1:LOCATER2 
»À,B:PEN#2, 1 :PRINT#2, HUR$ :PEN82,6:L 
OCATE#2,A,B:PRINT#2, MUR2$ : LOCATE#2, 
A,B:PEN#2,2:PRINT42,MHUR3$ 

1420 IF C=2 THEN PB(A,B)=2:LOCATE#2 
À, B:PEN#2, 5:PRINT#2,ECH$ 

1430 IF C=3 THEN PB(A,B)=3:LOCATER2 
»À,B:PEN#2, 4:PRINT#2, COD$ :LOCATE#?, 
A,B:PEN#2, 3:PRINT#2,COD1$ 

1440 IF C=4A THEN PB(A,B)=4:LOCATE#2 
,À,B:PEN#2, 4:PRINT#2,F$:LOCATER2, À, 
B:PEN#2,3:PRINT#2,F1$ 

1450 NEXT:NEIT 

1460 GOTO 3130 

1470 PHRNNMNENNNNNNEENNNENNE 

1480 '###4DATAS TABLEAUX+4## 

1490 "HHHMMERMMRENNENNNNENNS 

1500 '====Tableau 1==== 

1510 DATA 00000000000000000000 
1520 DATA 00000000000000000000 

1530 DATA 11100000000021111111 

1540 DATA 10021111120020001001 

1550 DATA 10020003120020001 301 

1560 DATA 11111111111121111121 

1570 DATA 10000000100020000021 

1580 DATA 10000003100020000021 

1590 DATA 12111111111112111021 

1600 DATA 12000000010002001021 

1610 DATA 12000000010002000021 

1620 DATA 11112112010211111111 

1630 DATA 11002102010200000001 

1640 DATA 11302102010200000001 

1650 DATA 11111102011111111121 

1660 DATA 10000102000000000021 

1670 DATA 14000002000000000021 

1680 DATA 11111111111111111111 

1690 DATA 1100000000010000001 1 

1700 DATA 11111111111111111111 

1710 DATA 20,2,181 

1720 DATA 10,8,180 

1730 DATA 11,14,180 

1740 DATA 4,17,180 

1750 DATA 3,11,180 

1760 RETURN 

1770 "====Tableau 2-==- 


)CE 


)HJ 
>MF 
)YE 
)YF 
»YG 
)1J 
>VZ 
>VA 
>WE 
>WJ 
>VX 
JV 
DE 
LA 
JW 
>B 
)B 
»dQ 
>WF 
>K 
NT 
NME 
JW] 
> 
>WF 
>WN 
>LG 
>LM 
>MA 
>)LT 
>LL 
>FH 
>YH 





1780 DATA 00000090000000000000 
1790 DATA 00000000000000000000 
1800 DATA 11211111111201121201 
1810 DATA 10200000010201021201 
1820 DATA 10200000310200021241 
1830 DATA 11211111111121111111 
1840 DATA 10200000010020000001 
1850 DATA 10200000310020000001 
1860 DATA 11111111110020000031 
1870 DATA 10000000000020121111 
1880 DATA 11121111112020020001 
1880 DATA 10021000012020020001 
1900 DATA 10020000311111111111 
1910 DATA 10021111110000000001 
1920 DATA 10020000000000000001 
1930 DATA 11111111111211111111 
1940 DATA 10000000000200000001 
1950 DATA 11111111111111111111 
1960 DATA 11000000000100000011 
1970 DATA 11111111111111111111 
1980 DATA 2,17,180 

1990 DATA 3,10, 180 

2000 DATA 11,12,180 

2010 DATA 2,15,180 

2020 DATA 15,2,180 

2030 RETURN 

2040 ’====Tableau 3==== 

2050 DATA 00000000000000000000 
2060 DATA 11201211121111110011 
2070 DATA 10200201020000100001 
2080 DATA 10200201020003130001 
2090 DATA 11121111111111111121 
2100 DATA 10020000000000000021 
2110 DATA 13020000000000000021 
2120 DATA 11111112101211111111 
2130 DATA 10000002010200000001 
2140 DATA 10000002010200000001 
2150 DATA 12111202010202111121 
2160 DATA 1210120201020210012: 
2170 DATA 12101202010202103121 
2180 DATA 12121111111111121121 
2190 DATA 12120000004000020021 
2200 DATA 12120021111112020021 
2210 DATA 12020020000002020021 
2220 DATA 11111111111111111111 
2230 DATA 11000000000100000011 
2240 DATA 11111111111111111111 
2250 DATA 1,1,180 

2260 DATA 14,1,180 

2270 DATA 1{1,7,180 

2280 DATA 3,17,180 

2290 RETURN 

2300 DATA 5,7,180 

2310 "====Tableau 4==== 

2320 DATA 00000000000000000000 
2330 DATA 00000000000000000001 
2340 DATA 11121210012111111211 





VA 
)tB 
DR 
)H 
>WQ 
JW 
JE 
M] 
DR 
)L 
DL 
)vQ 
NH 
NF 
MA 
JV 
MC 
DL 
NF 
y 
)LX 
LR 
LA 
)LD 
)LE 
)EJ 
De 
)VZ 
JUN 
»ND 
NL 
DU 
>VB 
VF 
LL 
VF 
>VG 
»Q 
JUN 
NT 
DL 
ul 
MK 
>ND 
NL 
WE 
JUN 
)EA 
)LJ 
>LN 
>LR 
>FG 
>EG 
Del 
>VZ 
>VB 
)UR 


2350 DATA 10021200002130010201 
2360 DATA 100212000021 11210201 
2370 DATA 11121111111100210201 
2380 DATA 10020000100021112121 
2390 DATA 10020000100020002121 
2400 DATA 11111120100020002121 
2410 DATA 10031121111111111121 
2420 DATA 12111020000000000021 
2430 DATA 12001320000000000021 
2440 DATA 11211111111111111121 
2450 DATA 10200000000000000021 
2460 DATA 10200002111112000021 
2470 DATA 11112002100012000021 
2480 DATA 11112002000412000321 
2490 DATA 11111111111111111111 
2500 DATA 11000000000100000011 
2510 DATA 11111111111111111111 
2520 DATA 1,2,180 

2530 DATA 11,9,180 

2540 DATA 9,12, 180 

2550 DATA 6,17,180 

2560 DATA 2,8, 180 

2570 RETURN 

2580 ’====Tableau 5==== 

2590 DATA 00000000000000000000 
2600 DATA 11110000000000001111 
2610 DATA 10010021111211000001 
2620 DATA 10000021000201121231 
2630 DATA 11111111121111021111 
2640 DATA 11110000020001021001 
2650 DATA 11110000020001020001 
2660 DATA 10002121111111111201 
2670 DATA 13002120100000001201 
2680 DATA 11111120100000001201 
2690 DATA 10000020121111201201 
2700 DATA 12111112121301201201 
2710 DATA 12100012121121201201 
2720 DATA 12130002120021200211 
2730 DATA 12111111121111111111 
2740 DATA 12000000020000000001 
2750 DATA 12000000020000000041 
2760 DATA 11111111111111111111 
2770 DATA 1100000000010000001 1 
2780 DATA 11111111111111111111 
2790 DATA 2,4,180 

2800 DATA 8,2,180 

2810 DATA 6,7,180 

2820 DATA 3,17,180 

2830 DATA 3,11,180 

2840 RETURN 

2850 "====Tableau 6==== 

2860 DATA 00000000000000000000 
2870 DATA 03000000000000000040 
2880 DATA 11111111211121111111 
2890 DATA 11202000201020002021 
2900 DATA 11212000201320002121 
2910 DATA 11211111111111111121 


>WH 


DL] 
DL] 


>VA 


>WN 


2920 DATA 11210000000000000121 
2930 DATA 11200000000000000021 
2940 DATA 11211111111111111121 
2950 DATA 11201300001000003121 
2960 DATA 11201111201021111121 
2970 DATA 11201000201020000121 
2980 DATA 11201000201020000121 
2990 DATA 11201121111111211121 
3000 DATA 11201121111111211121 
3010 DATA 10211020001000201121 
3020 DATA 11200020001000200021 
3030 DATA 11111111111111111111 
3040 DATA 11000000000100000011 
3050 DATA 11111111111111111111 
3060 DATA 2,16, 180 

3070 DATA 6,5, 180 

3080 DATA 5,17,180 

3090 DATA 13,17, 180 

3100 DATA 5,8,180 

3110 RETURN 

3120 'HANMMEHNEIHUNE 

3130 "###aLE JEUR#4#+# 

3140 YHHNMMHHANNIENNS 

3150 FOR 1=1 TO 4:EG(1)=1:ED(1)=0:N 
EXT 

3160 READ X,Y,CAR:XD=X:YD-Y:Z=0:W=0 


3170 PEN#2,9:LOCATES2, X, Y:PRINT#2,C 
HR$ (CAR) :PEN#2, 10: LOCATE#2, 3, 19:PRI 
NT#2, "SCORE : " ;USING"##8" ;SC:LOCATES 
2,13,19:PRINT#2, "VIES:":;USING"E"; VI 
ES 

3180 FOR 1=1 TO 4 

3190 READ X(1),Y(1),CAR(I):XD(1)=X( 
D :YDC1)=YC1) :PEN#2, 10: LOCATE#2, (1 
),YC1) :PRINT#2,CHRS(CAR(1)):NEXT 
3200 GOSUB 4110 

3210 AHHRMMRRNEENNNNNNENNNUNUNEEE 
3220 ‘####CONMHANDES: Joystick#### 
3230 "HARMAN ERREUR 
3240 J=J0Y(0) 

3250 IF (X=X(1) AND Y=Y(1)) OR (1=X 
(2) AND Y=Y(2)) OR (1=X(3) AND Y=Y( 
3)) OR (X=X(4) AND Y=Y(4)) THEN GOT 
0 3790 

3260 IF J=4 AND 121 THEN SOUND 1,20 
0,5:SOUND 1,250,5:GO0SUB 3380 

3270 IF J=8 AND 1<20 THEN SOUND 1,2 
00,5:SOUND 1,250,5:GO0SUB 3490 

3280 IF J=2 AND PB(X,Y+1)=2 THEN S0 
UND 1,200,5:SOUND 1,250,5:GO0SUB 360 
0 

3290 IF J=1 AND (PB(X,Y-1)=2 OR (PB 
(X,Y)=2 AND PB(X,Y-1)=0)) THEN SOUN 
D 1,200,5:SOUND 1,250,5:G0SUB 3710 
KR OMS TETETESEETESTEEESTESETS 
3310 "####COMMANDES:Clavier##### 


DE 


>CD 


De 
>IK 





3320 "HHHMMRRNNUNNMUNUNRIENNEENS 
3330 IF INKEY(8)=0 AND X>1 THEN SOU 
ND 1,200,5:SOUND 1,250,5:G0SUB 3380 


3340 IF INKEY(1)=0 AND X<20 THEN S0 
UND 1,200,5:SOUND 1,250,5:G0SUB 349 
0 
3350 IF INKEY(2)=0 AND PB(X,Y+1)=2 
THEN SOUND 1,200,5:SUUND 1,250, 5:GU 
SUB 3600 
3360 IF INKEY(0)=0 AND (PBCX, Y-1)=2 
OR (PB(X,Y)=2 AND PB(X,Y-1)=0)) TH 
EN SOUND 1,200,5:SOUND 1,250,5:G0SU 
B 3710 
3370 GOTO 3200 

*====733 À gauche==== 
3390 IF PB(X-1,Y)=1 THEN RETURN 
3400 IF PB(X-1,Y)22 THEN R=-1:G0T0 
3930 
3410 IF PB(X,Y)=0 THEN PRINT#2,HN$: 
LOCATE#2, X,Y:PRINT#2," ":PRINTE2,MT 
R$ 
3420 IF PBCX,Y)=2 THEN PRINT#2,HN$: 
PEN#2, 5:LOCATE#2, X, Y:PRINT#2,ECH$ :P 
RINT#2,NTR$ 
3430 IF X>2 THEN X=X-1 
3440 IF PBCX,Y)=1 THEN X=X+1 


3450 IF PB(X,Y+1)=0 THEN GOTO 4000 
3460 PEN#2,9:LOCATE#2, X, Y:PRINT#2,B 
G$ 

3470 Z=0:#=0 

3480 RETURN 


3490 "====233 à droite==== 

3500 1F PB(X+1,Y)=1 THEN RETURN 
3510 IF PB(X+1,Y)22 THEN R=1:G0T0 3 
930 

3520 IF PBCX,Y)=0 THEN PRINT#2,HN$ : 
LOCATE#2,X,Y:PRINTE2," ":PRINT#2, HT 
R$ 

3530 IF PB(X,Y)=2 THEN PRINT82,MN$: 
PEN#2,5:LOCATER2, X, Y :PRINT#2, ECH$ :P 
RINT#2,HTR$ 

3540 IF X<19 THEN X=1+1 

3550 IF PB(X,Y)=1 THEN X=1-1 

3560 IF PB(X,Y+1)=0 THEN GOTO 4000 
3570 PEN#2,9:LOCATE#2, X, Y:PRINT#2,B 
D$:PRINT#2,HTR$ 

3580 Z=0:W=0 

3590 PRINT#2,HN$ : RETURN 

3600 "====733 desce 
3610 PRINTE2,HN$ 
3620 IF PB(X,Y+1)=1 THEN RETURN 
3630 IF PBCX,Y)=0 THEN PRINTE2,HN$: 
LOCATER2,X,Y:PRINT#2," ":PRINTE2,NT 
R$ 

3640 IF PB(X,Y-1)=2 THEN PRINT#2,MN 
$:PEN#2,5:LOCATEE2, X,Y-1:PRINTE2,EC 
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>2F 


H$ 

3650 IF PB(X,Y-1)=2 THEN PRINT#2,HN 
$:LOCATE#2,X,Y-1:PRINTE2,ECH$: PRINT 
#2,NTR$ 

3660 PRINT#2,HTRS :Y=Y+1 : PEN#2,9: LOC 
ATE#2,X,Y:PRINT#2,BT$ 

3670 IF PB(X,Y-1)=2 THEN PRINT#2,MN 
$:PEN#2,5:LOCATER2, X, Y-1:PRINTE2,EC 
H$ 

3680 IF Z=0 THEN Z=1:RETURN 

3690 PRINT#2,MN$ :PEN#2, 5: LOCATE#2, X 
,Ÿ-1:PRINTE2,ECH$ 

3700 RETURN 

3710 '====233 monte==== 

3720 PRINT#2,HN$ 

3730 IF PB(X,Y+1)=2 THEN PRINTE2,MN 
$:PEN#2,5:LOCATE#2,X,Y+1:PRINT#2,EC 
H$ 

3740 PRINT#2,HTR$:Y=Y-1:PEN82,9:LOC 
ATE#2,X,Y:PRINTE2,BT$ 

3750 PRINT#2,HN$:PEN82, 5:LOCATE#2,X 
,Y+1:PRINT#2,ECH$ 

3760 IF W=0 THEN W=1:RETURN 

3770 PRINT#2,MNS:PEN#2, 5: LOCATE#2, X 
,Y+1:PRINT#2,ECH$ 

3780 RETURN 

3790 ’====233 perd une vie==== 

3800 PRINT#2,MNS:VIES=VIES-1 

3810 IF VIES<1 THEN TA=7:G0T0 4400 
3820 PEN#2, 10:LOCATE#2, 13, 19:PRINTÉ 
2,"VIES:";USING"#";VIES 

3830 FOR 1=1 TO 4:PRINT#2,HN$ : LOCAT 
E8#2,101),YCI):PRINT#2," * 

3840 IF PB(X(1),Y(1))=2 THEN PEN#2, 

5:PRINT#2,MN$:LOCATE#2,X(1),Y(I):PR 
INT#2,ECH$ 

3850 NEIT 

3860 LOCATE#2,X,Y:PRINT#2," ":PRINT 
42, HTR$ 

3870 PEN#2, 11:LOCATEE2, X, Y:PRINT#2, 

TOHB$ :PEN#2,2:LOCATE#2, X,Y:PRINT#2, 
TOMB1$ 

3880 FOR J=250 TO 10 STEP-3:SOUND 1 
,3,5:NEXT 

3890 PRINT#2,HN$ :LOCATE82, X, Y:PRINT 
#2," ":1F PB(X,Y)=2 THEN PEN#2,5:L0 

CATE#2,1,Y:PRINT#2,ECH$ 

3900 X=XD:Y=YD:PEN#2,9:LOCATE#2, X,Y 
:PRINT#2, CHR$ (CAR) 

3910 PEN#2,10:FOR 1=1 TO 3:X(1)=XD( 
D:YCH)=YDCT) :LOCATE#2,X(1),YCT):PR 
INT#2, CHR$ (CAR(1)) ; :NEXT 

3920 GOTO 3200 

3930 ’====733 prend objet==== 

3940 FOR J=300 TO 120 STEP-20:SOUND 
1,J,2:NEXT 

3950 IF PB(XTR,Y)=4 THEN CLS#2:TA=T 


Y 


HA 


A+1:SC=SC+(208TA) : : PRINT#2, TRS : GOT 
0 4430 

3960 PRINT#2,HN$:LOCATES2, +R, Y:PRI 
NT#2, CHR$ (32) :COD=COD+ 1 : SC=SC+20 
3970 PB(X#R, Y)=0:R=0 

3980 PEN#2, 10: LOCATE#2, 3, 19:PRINT#2 
, "SCORE: ";USING"##R";5C 

3990 GOTO 3220 

4000 "====733 toabe===- 

4010 WHILE PB(X,Y+1)©1 

4020 IF PB(X-1,Y)=2 THEN PEN#2,5:L0 
CATES2,1-1,Y:PRINT#2, ECHS$ 

4030 1F PB(X+1,Y)=2 THEN PEN#2,5:L0 
CATE#2,1+1,Y:PRINTE2, ECH$ 

4040 PRINTE2,MN$ : LOCATES2, À, Y : PRINT 
42," 

4050 Y=Y+1:PEN#2,9:LOCATES2,1,Y:PRI 
NT#2,BT$ 

4060 FOR T=i TO 100:NEXT 

4070 IF PB(X,Y+1)=2 THEN 4080 

4080 WEND 

4090 GOTO 3790 

4100 "HHANRRRRURRNNNENNNENNNES 

4110 *####MOUVEMENT ENENISa##4 

4120 "HHHHAERRNRENNEENNNENNRES 

4130 IF (X=X(1) AND Y=Y(1)) OR (X=X 
(2) AND Ÿ=Y(2)) OR (1=X(3) AND Y=Y{ 
3)) OR (X=X(4) AND Y=Y(4)) THEN GOT 
0 3790 

4140 PRINT#2,HN$ 

4150 FOR 1=1 TO 4 

4160 IF EG(1)=1 AND ED(1)=0 AND X(1 
)<20 THEN GOSUB 4200 

4170 IF ED(1)=1 AND EG(1)=0 AND X(1 
)>1 THEN GOTO 4300 

4180 NEXT 

4190 RETURN 

4200 ’====Enenis à droite==== 

4210 IF PB(X(I)+1,Y(1))=1 THEN ED(I 
)=1:EG(1)=0:RETURN 

4220 IF PB(X(1)+1,Y(1)+13=0 THEN ED 
(1)=1:EG(1)=0:RETURN 

4230 IF PBCX(I)+1,Y(1))=3 OR PBCX(I 
)+1,Y(1))=4 THEN ED(1)=1:EG(1)=0:RE 
TURN 

4240 IF PB(X(I),Y(1))=0 THEN LOCATE 
#2,X01),YCL):PRINTE2," ":PRINTE2, NT 
R$ 

4250 IF PBCX(I),Y(1))=2 THEN PRINT 
2,MN$:PEN#2,5:LOCATE#2,X(1),YC1):PR 
INT#2,ECH$:PRINT#2, TRS 

4260 PEN#2,10:X(1)=X(1)+1:LOCATE#2, 
XCD), YCD) :PRINTE2, CHR$ (180) :PRINTE2 
,HTR$ 

4270 IF PB(X(I)-1,Y(1))=2 THEN PEN 
2,5:LOCATE#2,X(1)-1,YC1) :PRINT#2,EC 
H$ 


)iK 
DUT 


>DZ 


>IN 





4280 PRINT#2,MN$ 

4290 RETURN 

4300 '====Enenis à gauche==== 

4310 IF PBCX(1)-1,YC1))={ THEN ED(I 
)=0:EG(1)=1:G0T0 4170 

4320 IF PB(X(1)-1,Y(1)+1)=0 THEN ED 
(1)=0:EG(1)=1:GOT0 4170 

4330 IF PB(X(1)-1,Y(1)3=3 OR PB(X(I 
)-1,Y(1))=4 THEN ED(1)=0:EG(1)=1:G0 
TO 4170 

4340 IF PB(X(1),Y(1))=0 THEN LOCATE 
82,100), YOU) :PRINTE2," ":PRINT#2, MT 
R$ 

4350 IF PB(X(1),Y(1))=2 THEN PRINTH 
2,HN$:PEN#2,5:LOCATES2,X(1),Y(1):PR 
INT#2,ECH$ 

4360 PEN#2,10:X(1)=X(1)-1:LOCATE#2, 
LCD), YCD):PRINT#2,CHR$ (181) 

4370 IF PB(X(1)+1,Y(1))=2 THEN PEN# 
2,5:LOCATES2,X(1)+1,Y(1) :PRINT#2,EC 
H$ 

4380 PRINTE2,MN$ 

4390 GOTO 4180 

8400 HHHRRHRNURRHUERNNNENUNUN 

4410 *###4MISSION TERHINE#4### 

CUVE ETEEESTEEEEEPEITEEPTI ETES 

4430 IF TAC7 THEN GOTO 1340 

4440 IF COD>=24 THEN A$="MISSION AC 
COMPLIE" : SCA=SC+100 

4450 IF COD(24 THEN A$="MISSION OVE 
R":SCA=SC 

4460 HODE 1:1NK 0,0:INK 1,26: INK 3, 
2: INK 2,6 

4470 WINDOW#1,2,39,1,24:PAPER#1, 1:C 
LS#1 

4480 FÜR 1=1 TU 24 

4490 LOCATE 1,1:PRINT CHR$(129) :LOC 
ATE 40,1:PRINT CHR$(129) :NEXT 

4500 XA=(40-LEN(A$) )/2 

4510 FOR 1=1 TO LEN(A$) 

4520 PEN#1,3:LOCATE#1, XA+1, 10:PRINT 
#H1,HID$(A$, 1,1): SOUND 1,200, 1,15:S0 
UND 1,0,5 

4530 NEXT 1! 

4540 A$="Votre score est de " 

4550 XA=(40-LENCAS$))/2:XA=XA-3 

4560 FOR 1=1 TO LEN(A$) 

4570 PEN#1,3:LOCATE# 1, XA+1, 14:PRINT 
H1,MID$(A$, 1,1) :SOUND 1,200, 1,15:S0 
UND 1,0,5 

4580 NEXT 1! 

4590 PEN#1,2:LOCATER 1, xat 1, 14: PRINT 
#1,SCA 

4600 PEN#1,3:LOCATE#1,5,22:PRINTH#1, 
"ESPACE ou FIRE pour cossencer" 
4610 J=JOY(0):1F JC>16 THEN 4630 
4620 IF J=16 THEN 4640 
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»YD 


>PD 


4630 IF INKEY(47)30 THEN 4610 
4640 CLS#1 

4650 GOTO 110 

[TS TE PET TEE TETE EEE 
4670 "####PAGE DE PRESENTATION###4 
[TARDE EPPE TETE FESSES ETES 
4690 XA=0:YA=3:X7-8:YZ=13:RESTORE 4 

880 

4700 A$="PHILIPPE MENAGER présente" 
:A=(38-LEN(A$))/2:LOCATE#1, À, 2:PEN# 
1,2:PRINT#1,A$ 

4710 FOR H=1 TO 7:READ DAT$:FOR L=1 
TO 38 

4720 C$=MID$(DATS,L, 1):C=VAL(CS$) 
4730 IF C=1 THEN LOCATEE{,XA+L, YA+H 
:PENA1,3:SOUND 1,200,1,15:PRINT#1,C 
HR$ (124) 

4740 NEXT 

4750 NEXT 

4760 RESTORE 4950 

4770 FOR H=1 TO 7:READ DATS$:FOR L=1 
TO 24 

4780 C$=MID$(DATS,L, 1):C=VAL(CS) 

4790 IF C=1 THEN LOCATEH, XZ+L, YZ+H 
:SOUND 1,200,1,15:PEN#1,3:PRINT#I,C 

HR$(124) 

4800 NEXT 

4810 NEIT 

4820 PEN#1,3:LOCATE#1,5,22:PRINT#1, 

"ESPACE ou FIRE pour cossencer" 
4830 J=-J0Y(0):1F JC)16 THEN 4850 

4840 IF J=16 THEN 4860 

4850 IF INKEY(47)<>0 THEN 4830 

4860 RETURN 

4870 "====DATAS DE PRESENTATION===- 


4880 DATA 0011000001111001111111011 
0601100111111 
4890 DATA 0111100011001100110001011 
1001100101101 
4900 DATA 1100110110000000110100011 
1101100001100 
4910 DATA 1100110110000000111100011 
0111100001100 
4920 DATA 1111110110011100110100011 
0011100001100 
4930 DATA 1100110111000100110001011 
0001100001 100 
4940 DATA 1100110011111101111111011 
0001100011110 
4950 DATA 111111100011110000111100 
4960 DATA 110001100100011001000110 
4970 DATA 10001100000001 10000001 10 
4980 DATA 00011000000111000001 1100 
4990 DATA 00110010000001 10000001 10 
5000 DATA 011001100110011001100110 
5010 DATA 111111100011110000111100 


>1B 
>LG 
)FC 
De 
DK 
)ZA 
>H2 


MUREIF 


MUREIF est un logiciel qui met 
en place la programmation d'un 
petit robot symbolisé à l'écran 
par un triangle dont la pointe 
indique l'orientation. Le but est 
de faire sortir ce robot de 
plusieurs labyrinthes en le 
programmant. 


e programme du robot se fait sur 
dix lignes numérotées de 0 à 9. 

Les fonctions comprises par le robot 
sont les suivantes : 

— À fait avancer le robot d’une case 
dans la direction vers laquelle il est rou- 
né. 

— D fait tourner le robot de 90 degrés 
vers la droite par rapport à son orienta- 
tion précédente. 


10 REM HR HR >PA 
20 REH # 4 >AC 
30 REM # MUREIF 4 LB 
40 REH # 4 )AE 
50 REM # CREE L >PC 
60 REH # 4 )AG 
70 REM +# PAR R.HAVRET # >QD 
80 REH # 4 DAJ 
90 REM # LE 04-03-90 + >HN 
100 REH # 4 >FF 
110 REM HHHHANMMENNEENNNE )>0B 
120 MODE 1:INK O,1:INK 1,24:INK 2,2 DJZ 


0: INK 3,6 

130 PRINT TAB(17);"MUREIF":PEN 3:PR 

INT TAB(17);"------ x 

140 PEN 1:PRINT:PRINT " 

n Robot Est-11 Facile ?)" 

150 PRINT:PRINT * -MUREIF est un lo 

giciel qui set en place la pr 

ograssation d'un petit robot. 

Il est sysbolise a l'ecran par u 

n triangle dont la pointe indique 
l'orientation." 

160 PRINT:PRINT * -Le but est de fa 


»2D 


(Manier U >QZ 


)EY 


>PE 








— 
Lir 
C 


— G fait tourner le robot de 90 degrés 
vers la gauche par rapport à son orienta- 
tion précédente. 

— A7(ligne) pose la question : “Y a- 
t-il un obstacle devant ?”. 

Si la réponse est OUI alors le pro- 
gramme va exécuter la ligne (ligne). 

Si la réponse est NON alors le pro- 
gramme continue dans l’ordre normal. 

— D?(ligne) pose la question : “Y a- 
t-il un obstacle à droite ?”. 

Si la réponse est OUI alors le pro- 
gramme va exécuter la ligne (ligne). 

Si la réponse est NON alors le pro- 
gramme continue dans l’ordre normal. 

— G?(ligne) pose la question : “Y a- 
t-il un obstacle à gauche ?”. 

Si la réponse est OUI alors le pro- 
gramme va exécuter la ligne (ligne). 

Si la réponse est NON alors le pro- 
gramme continue dans l’ordre normal. 


ire sortir ce robot de 10 labyrint 
hes. Et pour cela, il vous faudra 
le prograsser." 

170 PRINT:PRINT " -La programsation 


du robot se fait sur 10 lignes n 
userotees de 0 a 9." 
180 GOSUB 650 >HK 


190 PRINT " -Les fonctions comprise 

s par le robot sont les suivante 

$:" 

200 GOSUB 650 

210 PRINT "- ";:PEN 3:PRINT "A";:PE »>QA 

N {PRINT " -" 

220 PRINT:PRINT “Fait avancer le ro 

bot d'une case dans ladirection ver 

s laquelle il est tourne." 

230 GOSUB 650 

240 PRINT "- "::PEN 3:PRINT "D"; :PE 

N L:PRINT " -" 

250 PRINT:PRINT "Fait tourner le ro 

bot de 90 degres vers la droite par 
rapport a son orientation preceden 
te." 

260 GOSUB 650 


>06G 


DH 
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NS 


$ 
OG 
NAT" 


— V(ligne) va exécuter la ligne (ligne). 

—F indique à l’ordinateur que la frappe 
du programme est terminée et qu’il peut 
l’exécuter. 

— F permet d’arrêter l’exécution du 
programme si celui-ci est faux. 


Exemple de programme 
Cet exemple s’applique au labyrin- 
the numéro 1. 
OA avance jusqu’à 
1 A73 } la rencontre 
2VO d’un obstacle. 


3G obstacle, alors tourne à 
4 VO gauche et revient en ligne O. 
SF  } fin du programme 


270 PRINT "- ";:PEN 3:PRINT "G'";:PE 
N 1:PRINT " -" 

280 PRINT:PRINT "Fait tourner le ro 
bot de 90 degres vers la gauche par 
rapport a son orientation preceden 
te." 


290 GOSUB 650 

300 PRINT "- ";:PEN 3:PRINT "A?(lig 

ne)";:PEN {:PRINT " -" 

310 PRINT:PRINT “Pose la question : 
"Ya-t-il un obstacle juste devant 

LL 

320 PRINT:PRINT " -Si la reponse es 

t OUI alors le prograsse V 

a executer la ligne (ligne)" 

330 PRINT:PRINT " -Si la reponse es 
t NON alors le programse c 

ontinue dans l’ordre norsal" 

340 GOSUB 650 

350 PRINT "- ";:PEN 3:PRINT "D?(lig 

ne)";:PEN 1:PRINT " -" 

360 PRINT:PRINT "Pose la question : 
"Ya-t-il un obstaclejuste a droit 


e 2," 

370 PRINT:PRINT * -Si la reponse es 
t OUI alors le prograsse v 
a executer la ligne (ligne)" 

380 PRINT:PRINT " -Si la reponse es 
t NON alors le prograsse c 
ontinue dans l'ordre norsal" 

390 GOSUB 650 

400 PRINT "- ";:PEN 3:PRINT "G?(lig 
ne)";:PEN {1:PRINT " -" 

410 PRINT:PRINT "Pose la question : 
"Ya-t-il un obstaclejuste a gauch 

e 21" 

420 PRINT:PRINT ® -Si la reponse es 
t OUI alors le prograsse v 
a executer la ligne (ligne)" 

430 PRINT:PRINT " -Si la reponse es 
t NON alors le prograsse c 

ontinue dans l'ordre norsal" 

440 GOSUB 650 

450 PRINT "- ";:PEN 3:PRINT "V(lign 

e)";:PEN {:PRINT " -* 

460 PRINT:PRINT "Va executer la lig 
ne (ligne)." 

470 GOSUB 650 

480 PRINT "- ";::PEN 3:PRINT "F"::PE 

N {:PRINT " -" 

490 PRINT:PRINT “Indique a l'ordina 
teur que la frappe du programse est 
terainee et qu'il peut l'execut 

er." 

500 GOSUB 650 

510 PRINT "Lors de la saisie du pro 
gramme, vous vous retrouvez dans 
un editeur. Vous pouvez passer 

d’une ligne a l'autre avecles touch 

es HAUT et BAS (curseur). Vous pouv 

ez aussi vous servir des touches 
DEL et ENTER qui ont la sense fonct 
ion “: 

520 PRINT "qu'en BASIC." 

530 PRINT:PRINT “II faut valider ch 

aque fin de ligne, soit par lat 

ouche ENTER, soit par la touche B 

AS du curseur." 

540 GOSUB 650 

550 PRINT "Il est possible qu'a la 

suite d'une erreur de votre par 
t dans la prograssation 

du robot, celui-ci se trouve pr 
is dans une boucle sans fin, ilfaut 
alors appuyer sur la touche F et 

%. 
? 

560 PRINT "vous pourrez corriger le 
prograsse." 

570 GOSUB 650 

580 PRINT "Pour le cas ou mes expli 


JHJ 
)BR 


)VQ 
KE 


>HK 





cations ne vous auraient pas paru t 

res claire, voici la solution du pr 

esier labyrinthe." 

590 PRINT 

600 PRINT "O A":PRINT "{ A?3":PRINT 
"2 NO":PRINT "3 G":PRINT "4 VO":PR 
INT “5 F* 

610 PEN 3:PRINT:PRINT "TOUS LES LAB 
YRINTHES POSSIBLES ET INAGINA 
BLES ONT UNE SOLUTION, ALORS RIENNE 
VOUS EMPECHE D'EN CREER D'AUTRES P 
AR LA SUITE" :PEN 1 

620 GOSUB 650 

630 RUN "HUREIF1.BAS" 

640 END 

650 LOCATE 32,25:PRINT "(ENTER)" :CA 
LL &BB06:CLS : RETURN 


10 REM HR 
20 REX # 4 
30 REH + MUREIF # 
40 REH + : 
50 REM # CREE PAR R.HAVRET # 
60 REKH # : 
70 REH + LE 07.02.90 4 
80 REH # : 


90 REM HAN RRNMNRUNERUUE 

100 ? 

RUE EEE ES TI TESEEEES) 

120 * # PROGRAMME PRINCIPAL # 

130 ? HARANAENNEEIANIENNERNUX 

140 GOSUB 210:' INITIALISATION 

150 GOSUB 680: AFFICHAGE LABY. 

160 GOSUB 940: SAISIE PROGRAMME 
170 GOSUB 1110: EXECUTION PROGRAMM 
E 

180 GOTO 150 

190 END 
200 REM 
210 REM 
2206 REM 
230 GOSUB 2119 

240 HODE 1:1NK O,1:INK 1,24:INK 2,6 
: INK 3,20:BORDER 1:PAPER O:PEN 1 
250 PRINT CHR$(150) ;STRINGS (10, CHR$ 
(154)) ;CHR$(156) ;CHR$ (150) ; STRING$( 
26,CHR$(154)) ;CHR$(156); 

260 PRINT CHR$(149);" MUREIF ";CH 
R$(149) ;CHR$ (149) ; TAB(40) ;CHR$ (149) 


=== INITIALISATION 


270 PRINT CHR$(151);STRINGS (10, CHRS 
(154));CHRS (157) ;CHRS (149) ; TAB (40) ; 
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>PG 
>DP 


)1A 


JHJ 


YE 


>TD 
BR 


DJ 


LA 


JA 


CHR$ (149) ; 

280 FOR S=1 TO 12:PRINT CHRS(149):T 
AB(12) ;CHR$ (149) ;CHRS (149) ; TAB(40) : 
CHR$(149) ::NEXT S 

290 PRINT CHR$(151);STRINGS (10, CHRS 
(154) ;CHRS(157) ;CHR$ (149) ; TAB(40) ; 
CHR$ (149) ; 

300 FOR S=1 TO 5:PRINT CHRS(149) :TA 
B(12) ;CHR$ (149) ;CHRS (149) ; TAB(40) :C 
HRS (149): :NEXT S 

310 PRINT CHR$(149) ; TAB(12) ;CHRS(14 
9):CHRS(147) ;STRINGS (26, CHR$ (154) ) : 
CHR$ (153) ; 

320 PRINT CHR$(149) ;TAB(12) :CHRS (14 
9) ;CHR$ (150) ;STRINGS (26, CHR$(154) ); 
CHR$ (156) ; 

330 PRINT CHR$(149) ; TAB(12) :CHRS(14 
9) ;CHR$ (149) ; TAB(40) ;CHR$(149) : 

340 PRINT CHR$(147) ;STRINGS (10, CHR$ 
(154));CHR$ (153) :CHRS (147) : STRINGS 
26,CHR$ (154) ) ;CHR# (153) ; 

350 FOR 5-0 TO 9:LOCATE 2, S+6:PRINT 
HIDS(STRS(S), 2, 1):NEXT 

360 LOCATE 5,4:PRINT "PROG" 
370 LOCATE 2,17:PRINT "A 
380 LOCATE 2,18:PRINT "D 
390 LOCATE 2,19:PRINT "G 
400 LOCATE 2,20:PRINT "A? 
410 LOCATE 2,21:PRINT "D? 
420 LOCATE 2,22:PRINT "G? 
430 LOCATE 2,23:PRINT "V VA" 

440 LOCATE 2,24:PRINT "F FIN" 

450 LOCATE 16,24:PRINT "CREE PAR RE 
NAUD HAVRET" 

460 GOSUB 2060 

470 DIM LABY$(11),PROGS(10) 

480 LABY=1 

490 LABY$(11)="1111111111111" 

500 SYHBOL 240, 240, 240, 248, 248, 124, 
28,6,0 

510 SYHBOL 241,127,31,7,1,0,0,0,0 
520 SYHBOL 242,0,6, 28, 124, 248, 248, 2 

40, 240 

530 SYHBOL 243,0,0,0,0,1,7,31,127 
540 SYMROL 244, 240,924, 094,107 100, 
128, 128,0 

550 SYHBOL 245, 15,7,7,3,3,1,1,0 

560 SYHBOL 246,0,2, 14,60, 252, 248, 24 

8, 240 

570 SYMBOL 247,0,64, 112,60,63,31,31 
,15 

580 SYMBOL 248,254, 248, 224, 128,0,0, 

0,0 

590 SYMBOL 249, 15,15,31,31,62,56,96 
0 

L 

600 SYMBOL 250,0,0,0,0, 128, 224, 248, 

254 


AVANCE" 
DROITE" 
GAUCHE" 
OBST. ?" 
OBST.?" 
OBST. ?" 


LA 


JA 


V 


NE 





610 SYHBOL 251,0,96,56, 62, 31, 31,15, 
15 

620 SYMBOL 252, 240, 248, 248, 252,60, 1 

4,2,0 

630 SYMBOL 253,15, 31,31,63,60, 112,6 

4,0 

640 SYMBOL 254,0, 128, 128, 192, 192, 22 

4,224, 240 

650 SYHBOL 255,0,1,1,3,3,7,7,15 

660 RETURN 

670 REM 

680 REM --- AFFICHAGE LABY --- 

690 REM 

700 IF LABY=1 THEN RESTORE 1930 
710 IF LABY=2 THEN RESTORE 1940 

720 IF LABY=3 THEN RESTORE 1950 

730 IF LABY=4 THEN RESTORE 1960 

740 IF LABY=5 THEN RESTORE 1970 

750 IF LABY-6 THEN RESTORE 1980 

760 IF LABY-7 THEN RESTORE 1990 

770 IF LABY=8 THEN RESTORE 2000 

780 IF LABY-9 THEN RESTORE 2010 

790 IF LABY=10 THEN RESTORE 2020 
800 1F LABY=11 THEN CALL &BBOG:HODE 
2:END 

810 GOSUB 2110 

820 FOR S=1 TO 10:READ A:LABY$(5)=B 
INSCA, 13) :NEXT 

830 FOR YY=2 TO 20 STEP 2 

840 FOR XX=14 TO 38 STEP 2 

850 IF MIDS(LABY#(YY/2), (XX-12)/2, 1 
)="{" THEN LOCATE XX, YY:PRINT CHR 
212) ;CHR#(213) :LOCATE XX, Y+1:PRINT 
CHR$(215);CHR$ (214) ELSE LOCATE IX 
,YY:PRINT " M:LOCATE XX, YY+1:PRINT 
" " 

860 NEXT XX 

870 NEXT YY 

880 X-36:Y=20 

890 PEN 2:LOCATE X,Y:PRINT CHR$(255 
);CHRS (254) :LOCATE X, Y+1:PRINT CHR$ 
(253) ;CHR# (252) :PEN 1 

900 ORI=0 

910 GOSUB 2060 

920 RETURN 

940 REM --- SAISIE PROGRAMME --- 

950 REM 

960 WINDOW #1,4,11,6, 16 

970 CLS #1:LOCATE 4,16:PRINT STRING 
#(8,154) 

980 FOR S=1 TO 10:PROG$(S)="":NEIT 
990 XP=1:YP=1 

1000 LOCATE #1,XP,YP:PRINT #1," " 
1010 TOUS=UPPERS(INKEYS):1F TOUS="" 
THEN 1010 


1020 IF TOUS=CHR$(240) AND YP>1 THE >VR 


>CV 


>FG 


>DX 


>KH 


)XF 
>ZH 
VF 
2) 
>vH 
DYN 
)YR 
WW 
)YY 
»YB 
)YE 
)YH 
)YR 
JW 
)2N 
>HQ 


>PK 


ZT 
WP 
>QP 
>LF 


DBJ 
DUE 
>AK 
>NJ 





N LOCATE #1,XP,YP:PRINT #1," ":YP=Y 
P-1:XP=LEN(PROGS(YP))+1:G0T0 1000 
1030 IF TOU$=CHR$(241) AND YP<10 TH 
EN LOCATE #1,XP,YP:PRINT #1," ":YP= 
YP+1:XP=LEN(PROGS(YP))+1:G0T0 1000 
1040 IF TOU$=CHR$(127) AND XP>1 THE 
N LOCATE #1,XP,YP:PRINT #1," ":XP=X 
P-1:PRO$=PROGS (YP) :PROGS(YP)="" : PRO 
G$CYP)=MHID$ (PROS, 1, LEN(PROS ) -1) : GOT 
0 1000 

1050 IF TOU$=CHR$(13) AND PROG$(YP) 
="F" AND PROG$(1)€>"* THEN LOCATE 8 
1,XP,YP:PRINT #1," ":GOTO 1090 

1060 IF TOU$=CHR$(13) AND YP<10 THE 
N LOCATE #1,1P,YP:PRINT #1," ":YP=Y 
P+1:XP=LEN(PROGS(YP))+1:G0T0 1000 
1070 IF TOU$>CHR$(47) AND TOUS<CHRS$ 
(87) AND XPCB THEN LOCATE #1, XP, YP: 
PRINT #1, TOUS: XP=XP+1:PROGS$ (YP)=PRO 
G$CYP)+TOUS 

1080 GOTO 1000 

1090 RETURN 

1100 REM 


1110 REM --- EXECUTION PROGRAMME -- 


1120 REM 
1130 LIG=1 

1140 IF X=16 AND Y=20 THEN LABY-LAB 

Y+1:CALL &BB06:G0TO 1260 

1150 IF UPPER$SCINKEY$)="F" THEN CLS 
#1:GOTO 1260 

1160 IF PROG$(LIG)="A" THEN 1280 
1170 IF PROG$(LIG)="D" THEN 1370 
1180 IF PROG$(LIG)="G* THEN 1460 
1190 IF PROG$(LIG)="F" THEN 1830 
1200 IF MID$(PROG$(LIG),1,1)="V" TH 

EN 1790 

1210 IF MID$(PROG$(LIG),1,2)="A?" T 

HEN 1550 

1220 IF MID$(PROG$(LIG),1,2)="D?" T 

HEN 1630 

1230 IF MID$(PROG$(LIG),1,2)="G2" T 

HEN 1710 

1240 LIG=LIG+1 

1250 IF LIG=11 THEN CALL &BB06 ELSE 
GOTO 1140 

1260 RETURN 

1270 REX 

1280 REM --- FONCTION À --- 
1290 REM 
1300 PEN 3:LOCATE X,Y:PRINT CHR$(13 

6);CHR$(132) :LOCATE 1,Y+1:PRINT CHR 

$(130) ;CHR$(129) :PEN 1 

1310 IF ORI=0 AND MID$(LABYS((Y-2)/ 
2),(X-12)/2,1)="0" THEN Y=Y-2:GO0SUB 


20 


1860 
1320 IF ORI=1 AND HID$(LABYS(Y/2),( 
(X+2)-12)/2,1)="0" THEN X=X+2:GOSUB 
1870 
1330 IF ORI=2 AND HID$(LABY$((Y+2)/ 
2),(4-121/2,1V=%0% AND V420 THEN Y= 
Y+2:G0SUB 1880 
1340 IF ORI=3 AND MID$(LABY$(Y/2),( 
(X-2)-12)/2,1)="0" THEN X=X-2:GO0SUB 
1890 


1350 GOTO 1240 

1360 REM --------" 
1370 REM --- FONCTION D --- 
1380 REM -------- 


1390 ORI=ORI+1:1F ORI=4 THEN ORI=0 
1400 IF ORI=0 THEN GOSUB 1860 

1410 IF ORI=1 THEN GOSUB 1870 

1420 1F ORI=2 THEN GOSUB 1880 

1430 IF ORI=3 THEN GOSUB 1890 

1440 GOTO 1240 

1450 REM 
1460 REM --- FONCTION G --- 
1470 REM 
1480 ORI=ORI-1:1F ORI=-{ THEN ORI=3 


1490 IF ORI=0 THEN GOSUB 1860 
1500 IF ORI=1 THEN GOSUB 1870 
1510 IF ORI=2 THEN GOSUB 1880 
1520 IF ORI=3 THEN GOSUB 1890 
1530 GOTO 1240 

1540 REN 
1550 REM --- FONCTION A? --- 
1560 REN 
1570 IF ORI=0 AND HID$(LABYS((Y-2)/ 
2),(4-12)/2,1)="1" THEN LIG=VAL(HID 
$(PROG$(LIG),3,1))+1:GO0T0 1140 

1580 IF ORI=1 AND MID$(LABY#(Y/2),( 
(X+2)-12)/2,1)="1" THEN LIG=VALCHID 
$(PROG$(LIG),3,1))+1:G0T0 1140 

1590 IF ORI=2 AND HID$CLABYS$((Y+2)/ 
2),(X-12)/2,1)="1" THEN LIG=VALCHID 
$(PROG$(LIG),3,1))+1:GO0T0 1140 

1600 1F OR1=3 AND HID$(LABY#(Y/2), ( 
(X-2)-12)/2,1)="*1* THEN LIG=VALCHID 
$(PROG$(LIG),3,1))+1:G0T0 1140 


1610 GOTO 1240 

1620 REM -------"- 
1630 REM --- FONCTION D? --- 
1640 REM --------"-""- 


1650 IF ORI=0 AND HID$(LABYS(Y/2),( 
(X+2)-12)/2,1)="1" THEN LIG=VAL(NID 
$C(PROGS#(LIG),3,1))+1:G0T0 1140 

1660 1F ORI=1 AND MID$(LABY$((Y+2)/ 
2),(X-12)/2,1)="{* THEN LIG=VALCMID 
$(PROG$(L1G),3,1))+1:G0T0 1140 

1670 IF ORI=2 AND MID$C(LABY$(Y/2),( 
(X-2)-12)/2,1)="1" THEN LIG=VAL(NID 


Y 


XK 


>HD 
TE 
TP 
>TG 
CT 
JV 
NY 
>WB 
NE 
>HD 
TE 
TT 
TG 
>D4 


>WB 


JUA 


>TH 


$CPROG$(LIG),3,1))+1:G0T0 1140 
1680 IF ORI=3 AND HID$(LABYS$((Y-2)/ 
2),(X-12)/2,1)="1" THEN LIG=VALCMID 
$(PROG$(LIG),3,1))+1:GOT0 1140 


1690 GOTO 1240 

1700 REM 
1710 REM --- FONCTION G? --- 
1720 REM -------- 


1730 IF ORI=0 AND HID$(LABYS$(Y/2),( 
(X-2)-12)/2,1)="1" THEN LIG=VAL(MID 
$CPROG$(LIG),3,1))+1:GOT0 1140 
1740 IF ORI=1 AND HID$(LABY$((Y-2)/ 
2),(X-12)/2,1)="1" THEN LIG=VALC(MID 
$(PROG$(L1G),3,1))+1:G0T0 1140 
1750 IF ORI=2 AND HID$(LARYS(Y:7),( 
(X+2)-12)/2,1)=*1" THEN LIG=VALCNID 
$CPROG$(LIG),3,1))+1:GOT0 1140 
1760 IF ORI=3 AND HID$(LABY$((Y+2)/ 
2),(X-12)/2,1)="1" THEN LIG=VALCHID 
$(PROG$(LIG),3,1))+1:G0T0 1140 


1770 GOTO 1240 

1780 REM --------- 
1790 REM --- FONCTION V --- 
1800 REM --------"--"- 


1810 LIG=VAL(MID$(PROG$(LIG),2, 1) )+ 
1:G0T0 1140 
1820 REM 





>LU 


)NA 
>TG 
DUE 
TJ 
)LL 


>LN 


>LN 


»LQ 


>HK 
TL 
>UG 
>TD 
>PM 


)TF 





1840 REH 
1850 CALL &BB06:G0T0 1260 

1860 PEN 2:LOCATE X,Y:PRINT CHR$(25 
5): CHR$ (254) :LOCATE X,Y+1:PRINT CHR 
$(253) ;CHR$(252) :PEN 1:RETURN 

1870 PEN 2:LOCATE X,Y:PRINT CHR$(25 
1) ;CHR$(250) :LOCATE X,Y+1:PRINT CHR 
$(249) ;CHRS$(248) :PEN i:RETURN 

1880 PEN 2:LOCATE X,Y:PRINT CHR$(24 
T);CHR$ (246) :LOCATE X,Y+1:PRINT CHR 
$(245) ;CHR$ (244) :PEN 1:RETURN 

1890 PEN 2:LOCATE X,Y:PRINT CHR$(24 
3) ;CHR$ (242) :LOCATE X,Y+1:PRINT CHR 
$(241) ;CHR$(240) :PEN 1:RETURN 

1900 REH 


1910 REM --- LABYRINTHES 1 À 10 --- 


1920 REM ---------" 
1930 DATA 8191, 4097, 4097, 4097, 4097, 
4097, 4097, 4097, 4097,6141 
1940 DATA 8191, 4609, 4609, 4621, 4101, 
4613,4613, 4613, 4613,6141 
1950 DATA 8191,4369, 5461,5461, 5461, 
5461,5461,5461,5189,6141 





Cj2C plus 23 





plus 23 


Q 140 F non abonné 
Q 110 F abonné 


V 


PY 


V 


PG 





1960 DATA 8191,4841,4161,6211,4889, 
5285,4257,4257,4257,6141 

1970 DATA 8191,4681,4161,6211,4889, 
5285,4257,4257,4257,6141 

1980 DATA 8191,5285,4257,4097,7759, 
4161,6483,4433,5461,6141 

1990 DATA 8191,5461,4437,5205,5397, 
5445,5457,5461,5461,6141 

2000 DATA 8191,4161,4433, 7163, 4433, 
4161,6419,5285,4161,6141 

2010 DATA 8191,4161,4433,7511,4433, 
5709,4433,7447,4433,6141 

2020 DATA 8191,4227,5413,5193,5265, 
5413,5705,5267,5153,6141 

2030 REH 
2040 REM --- ROUTINES DIVERSES --- 
2050 REN 
2060 FOR 555=1 TO 40 

2070 OUT &BCO0,1:OUT &BD00,55s 
2080 FOR ss55=1 TO 10:NEIT 5555 
2090 NEÏT 555 

2100 RETURN 

2110 FOR s55=40 TO O STEP -1 
2120 OUT &BCO0,1:OUT &BDO0,5sss 
2130 FOR s555=1 TO 10:NEÏT 5555 
2140 NEXT 555 

9150 RFTIRN 


ANCIENS NUMEROS 


>BH 
NL 
NT 
»YG 
ZA! 
>RH 
>EG 
)UZ 
)YC 
»2Q 
>RD 
SFR 
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Fe HORS-SERIE 
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l + DISQUETTES HORS-SERIE 
L Q HS 1, 2, 3,4, 5,6,7,8,9,10,11,12 
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DARK DUNGEONS II 





Arthur le fantôme, a de 
nouveaux problèmes avec les 
lumières de son château... Mais 
cette fois-ci, c’est le ras-le-bol... 
Arthur a décidé de partir en 
vacances à Hawaï. Mais encore 
faut-il sortir de cet affreux 
manoir. 


orreur !!! Les clefs ont disparu... 
Arthur doit faire appel à la magie 
de ses ancêtres en alignant trois sphères 
magiques. Ainsi apparaîtront les clefs qui 
ouvriront les portes des 15 salles du châ- 
teau.… 
Ramassez les torches et utilisez-les 
à bon escient, elles n’éclaireront qu’un 
moment... 
Bonnes vacances Arthur !!!! 


Commandes : 

Vous pouvez diriger Arthur, soit au 
Joystick, soit au clavier (touches fléchées 
+ espace pour les torches). 


NB : Si vous ne pouvez plus aligner 
les Boules, appuyez sur Q... 

Si vous désirez créer vos propres 
tableaux, modifiez les datas à partir de 
la ligne 2170 sachant que : 

… Sphère 

… Torche 

… Mur 

.… Emplacement de la clef 
… Porte 

… Emplacement d’Arthur 

Attention ! Il ne doit y avoir qu’un 
seul 6 et un seul 4. 


DU 8 © D = 





Frédéric BARNABE 
Valable pour CPC 464 - 6128 






Solutions : 

Pour être invincible, supprimez la 
ligne 920. Si vous voulez commencer au 
tableau de votre choix, remplacez le 
Restore 2170 en ligne 120 par respecti- 
vement 2170, 2280, 2390, 2500, 2610, 
2720, 2830, 2940, 3050, 3160, 3270, 
3380, 3490, 3600 ou 3710 et incrémen- 


tez la variable TABL... 

10 )LA 
20 ’ DARK DUNGEONS 11 >LB 
30 ? >LC 


40 MODE O:BORDER O0:FOR i=0 TO 13:RE >WW 
AD a:INK i,a:NEXT:INK 15,0,6:INK 14 
6,0 

50 DATA 0,26,1,2,4,14,23,15,16,7,6, FD 
3,3,13 

60 MEMORY 24999:1=100:FO0R i=0 TO 11 >YA 
6:FOR j-0 TO 7:READ a$ 

70 s=s+VAL("£"+a$):POKE 25064+c, VAL DRE 
("&"+a$):c=cti 

80 NEXT:READ A$:1F VAL("&"+A$)CS T >RY 
HEN PRINT "ERREUR EN LIGNE"L:END 

90 S=0:L=L+10:NEXT >NH 
100 DATA 00,C0, 80, 00,00, 40,C0,00,24 >BA 
0 

110 DATA 00,40, C0, 00, 00,40, 80,80,24 DAC 
0 

120 DATA 00, 40,C0,80,00,C0,C0,80,38 >BM 
0 

130 DATA 40,C0, C0, 80, 40, 80,C0,00,3C >BE 
0 

140 DATA 40,80,C0, 40, 40, C0, 40, 40,34 >BY 
0 

150 DATA 00, C0, 80, 80,40, 40,80,80,34 >BR 
0 

160 DATA 40,80, 40,E2,D1,D1,C0,D1,51 >BP 
5 

170 DATA E2,E2,D1,C0,40,40,C0,E2,57 >CG 
7 

180 DATA 00,C0,80,00,00,40,C0,00,24 >BJ 
0 

190 DATA 00,C0,C0,80,00,C0,C0,80,40 >BD 
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0 
200 DATA 00,C0,C0, 80,00, CO, CO, 80, 40 
0 
210 DATA 40,E2,C0,E2,40,E2,C0,E2,58 
8 


220 DATA 40,D1,D1,C0,00,E2, CO, E2,52 


| 6 


230 DATA üu, Cu, Cü, du, 51, Cu, Cu, où, à 
” DATA E2,D1, C0, 80,E2, E2, CO, CO, 63 
. DATA CO, E2,E2, C0,51, CO, D1, 80, 5A 
_ DATA 00,00, C0, 80,00, 40, CO, 00, 24 
"A DATA 00, CO, CO, 80,00, CO, CO, 80, 40 
DATA 00, C0, CO, 80, 00, CO, CO, 80, 40 
26 DATA 40,E2, CO, E2, 40, E2, CO, E2, 58 
DATA 40,D1,D1, CO, 40, E2, CO, A2, 52 
” DATA 00, C0, CO, A2,00, CO, CO, Di, 47 
DATA 40, C0,D1, CO, CO, CO, CO, E2, 5B 
DATA CO, CO, E2, Di, 40, CO, E2, 80,59 
F DATA 00,00, CO, 80,00, 40, CO, 00, 24 
DATA 00, CO, CO, 80,00, 80, 80, 80, 38 
à DATA 00, C0, CO, 80,00, CO, CO, 80, 40 
DATA 40,40, 40, 40, 40, 40, CO, E2, 32 
A DATA 40,80,D1, C0, 00, 00, D1, A2, 3C 
ue DATA 00,C0, C0, A2,00, CO, CO, D1, 47 
DATA 40, C0,D1, CO, CO, CO, CO, E2, 5B 
\ DATA CO, CO,E2, Di, 40, CO, E2, 80,59 
DATA 00, C0, 80, 00,00, 40, CO, 00, 24 
DATA 00, CO, CO, 80, 00, 80, 80, 80, 38 
Fe DATA 00, CO, CO, 80,00, CO, CO, 80, 40 
… DATA 40, 40, 40, 40, 40, E2, CO, 40, 32 
ne DATA 40,D1,80, C0, 00, F3, 80,00, 3C 
5 DATA 00,C0, CO, 80,51, C0, CO, 80, 45 
1 


)BT 


480 DATA E2,D1,C0,80,E2,F2, C0, C0,63 
Van DATA CO,E2, E2, C0,51, C0, Di, 80, 5A 
a DATA 00,40, C0, 00, 00, CO, 80, 00, 24 
so DATA 00,C0, 80, 00, 40, 40, 80, 00, 24 
P DATA 40, C0, 80, 00, 40, CO, 80, 00, 30 
. DATA 40,C0, 80,00, 00, CO, CO, 00, 30 
” DATA 80, 40,80, 80, C0, CO, 80, 80, 44 
. DATA 40,C0, 00, 00, 00, 00, CO, A2, 26 
Fe DATA Üü, Cu, E£, Ui, ou, bi, Di, Di, bu 
. DATA CO,D1,D1, CO, 40,80, CO, A2, 54 
DATA 00, C0, 80, 00, 00, 40, CO, 00, 24 
in DATA 00,40, C0, 00,00, 40, 80, 80, 24 
in DATA 00, 40,C0, 80,00, 40, CO, 80, 30 
éd DATA 00,40, C0, 80,00, CO, CO, 00, 30 
cn DATA 40, 40,80, 40, 40, 40, CO, CO, 34 
” DATA 00,00, C0, 80,51, C0, 00,00, 25 
à DATA E2,D1,C0,00, E2, E2, E2, 40,55 
7 DATA CO,E2, 2, C0,51, C0, 40, 80,51 
à DATA 00,40, C0, 00, 00, CO, 80, 00, 24 
5 DATA 00, C0, 80, 00, 40, 40, 80, 00, 24 
- DATA 40,C0, 80, 00, 40, CO, CO, 00, 34 
de DATA 40, C0, CO, 80, 00, CO, 40, 80, 3C 
à DATA 80,C0, 40,80, 80, 80, CO, 80, 44 
_ DATA 40, 40, C0, 00, 40, 40, 80, 80, 2C 
5 DATA D1,80,40,80,E2, CO, E2, E2,57 
ai DATA CO, E2,D1,D1,D1, CO, 80, 80, 5D 
à DATA DD,5E, 00, DD,56, 01, DD, 6E, 3B 
DATA 02, DD,66, 03,06, 10, CD, 19, 24 
5 DATA BD,F3,C5,E5,06, 04, 1A, 77,3F 


>CD 


>CZ 


)BE 


>AG 


>CV 





Eù 


. DATA 13,23, 10,FA,E1,CD, 10,64, 36 
à DATA C1,10,EF,FB,C9, 00, 00, 00, 38 
DATA 7C,C6,08,67,D0,D5, 11,50, 3B 
5 DATA CO, 19, D, C9, 00, 00, 00, 00, 27 
do DATA 00, 00,00, 00, 00, 00, 00, 00, 00 
7 DATA 00,00, 00, 00, 00, 0C, 0C, 00, 01 
. DATA 04,00, 00, 20,04, 00, 0C, 88, 0B 
SR DATA 08,04, 0C, 64,08, 04, 18,64, 10 
6 DATA 20,0€, 18,64,98, 0€, 30, CC, 24 
_ DATA 98, 30, 60, D8, CC, 30,60, D8, 43 
DATA E4,CC, DO, DO, 44, CC, CB, A0,5C 
DATA 50,CC, C8, A0, 00, FO, FO, 00, 46 
pe DATA Gü, Üu, Uu, UU, Uu, UU, VU, LU, Uu 
di DATA 00,00, AA,55,00, 00, 15,FF, 21 
dé DATA 00,00, 15, 7F,00, 00, 7F, BD, 1D 
+ DATA 00,00, 54, 7F,00, 00,55, BD, 1E 
. DATA 00,00, 37,15,00, 11, 33, 00,09 
_ DATA 00,11, 22,00, 00, 33, 00, 00, 06 
a DATA 00,33, 00,00, 11, 22, 00, 00,06 
ds DATA 11,22, 00,00, 33,00, 00, 00,06 
de DATA 22,00, 00, 00,00, 00, 00, 00, 02 
di DATA C3,4F,C3,4F,87,4F,87,4F, 3D 
DATA OF,4F,0F,4F,CF, CF, CF, CF, 3F 
(hi DATA 4F,C3,4F,C3,4F,87,4F,B7,3 
6 DATA 4F,0F,4F,0F,CF,CF,CF,CF,3 
e DATA C3,4F,C3,4F,87,4F,87,4F,3 
5 DATA OF,4F,0F,4F,CF,CF, CF, CF,3 
de DATA 4F,C3,4F,C3,4F,87,4F,87,3 
Do 


23 








1050 DATA 4F,0F,4F,0F,CF,CF,CF,CF,3 )EC 
Foi DATA 00,00, 00, 00,00, 00, 00, 79,0 >BW 
r DATA 00,00, 14,51,00,00, 14,51,0 
é DATA 00,00, 14,51,00, 00, 79,51, 1 
_ DATA 00, 14,F3, A2, 00, 79, 00, 00, 2 
Fe DATA 14,42, 00,00, 79,F3, 00, 00, 2 
5 DATA F3,51,00,00,F3, 00, 00, 00, 2 
(5 DATA 51,42, 00, 00, 00, 00, 00, 00, 0 
us DATA 00, 00,00, 00, 00, 00, 00, 00, 0 
io DATA 14,3C,B6, A2, 3C,F3,F3,F3, 4 
DATA 79,33,33,F3, 39, 33, 33, 73, 2 
in DATA 39, 33,33, 73, 39, 33, 33, 73, 2 
on DATA 39, 33,33, 73, 39, 33, 33, 73, 2 
1e DATA B3, 33,36, 73, 39, 33, 79,F3,3 
Le DATA B3,33,B3,F3, 39, 33, 73, 73,3 
a DATA B3, 33,33, 73,83, 33, 33, 73,3 
DATA B3, 33,33, 73,83, 33, 33, 73,3 
18 

1206 DATA 01,00, a, 14, 5ù,66,:1,06,1 >B 
35 

1230 DATA CO,ED,B0, C9, 01,00, 40, 11,3 
+ DATA 00,C0,21,5C,66, ED, BO, C9, 4 
Le DATA 00, 14,01,02, 04, 0E, 17,0F,0 
ne DATA 10,17,04,03,03,03, OD, 00,0 
a7 


1270 ? >YC 
1280 ’ Presentation >YD 
1290 )YE 


1300 adresse:49737:ligne-9:taille=2 >TJ 
7:G0SUB 1330 

1310 adresse=49342:ligne={:taille=2 >TK 
0:GO0SUB 1330 

1320 CALL 25960 :RUN"dd2 >RA 
1330 FOR 1=0 TO ligne:H=0 TA 
1340 FOR 1=0 TO 7:FOR J=0 TO taille >B4 


1350 IF H=0 THEN 1390 
1360 H=H-1 


>NZ 
>KB 


1370 POKE adresse+1#2048+J+L480, À 
1380 NEXT:NEXT:NEXT: RETURN 

1390 ? 

1400 READ A$:1F LEN(A$)>2 THEN A=VA 
L'OLM+RIGHTS (AS, 2) ) :H=VAL("RM+LEFTS 
(A$,LEN(A$)-2)) ELSE H=1:A=VAL("&®+ 
A$) 

1410 GOTO 1360 

1420 ? 

1430 ’ Data presentation 

1440 ? 

1450 DATA 9500, 45,1B00, 45,1F,15,3F, 
1800, 45,F,3F, 1000 

1460 DATA 900,45,5F,FF, 1900, 45, 200, 
AA, 1800, 45, 1B00, 45, 1700, 40, 80, F0, AO 
F0, A0, 44 

1470 DATA CC, 10, 30, 20, 1100, 40, 80, FO 
, A0, FO, A0, 44, CC, 10, 30, 20, 1100, 40, 80 
, FO 

1480 DATA A0, F0, A0, 2CC, 10,30, 20, 110 
0,40,C0,3F0,E4, 2CC, 230, 20, CO0 

1490 DATA E00, 10, 1300, C0, E0, 2F0, 2CC 
200, 20, 1300, 2C0, DO, E4, CC, 288,0, 20, 
1300, C0,F0 

1500 DATA E0,F0,D8,CC, 44,0,20, 1300, 
2C0,2F0,E4,CC, 88,0, 20, 1300, C0, 2F0,E 
4,2CC 

1510 DATA 44,0, 20, 1300, C0, 2D0,F0,E4 
CC, 200,20, 1300, 2C0, F0, E4, F0, CC, 200 
, 20, D00 

1520 DATA 600,C0,F0, E0, FO, 2CC, 88,0, 
20,200, 45,0, 3F, 24, 400,55, 0, 2A, 600,2 
co 

1530 DATA 2F0,2CC, 44,0, 20, 200, 45, 1F 
; 2À,600, 15, AA, 600, C0, FO, DO, FO, E4, CC 
,88 

1540 DATA 0,20, 200, 45,F,AA,600,3F, A 
4,600, C0, DO, 2F0, 2CC, 88,0, 20, 200, 45, 
A 

1550 DATA 55,AA,500,5, AA, 600, 2C0, E0 
, F0,D8, CC, 88,0, 20, 200, 45,800,F, A,60 
0 

1560 DATA CO, 2F0, 2E4, CC, 44,0, 20, 200 
45,000, 20F,600, &ü, Lu, EU, Fü, EU, do, 
0,60 

1570 DATA 80,F0,44,88,CC, 10, 20,400, 
SE, AD, 600, 2C0, 2F0,E4,CC, 88, 0,60, 80, 
FO 

1580 DATA 50,88, CC, 10,20, 200, C0,5,F 
C,F 

1590 DATA 600,C0,2D0,F0,CC,E4,CC, 0, 
60,D0, 2F0, 2CC, 30, 20,0, C0,80,5,5E,F 
1600 DATA 600, C0,D0, 3F0, CC, 88,0, 20, 
500, 10, 29, 2C0, 80, 0, 4F, 8A,600, CO, 2D0 
,F0 

1610 DATA D8,CC, 44, 0,20, 2D0, FO, 288, 
10,0,2C0, 80,0, CF, 8A, 600, 2C0, 2F0, E4, 


>BD 
)YR 
)YF 


vV 
_ 
= 


)WH 


V 


DE 


PY 


V 


LA 


UG 


>UX 








cc 
1620 DATA 88,0,20,C0, 2F0,E4, 88, 10,4 
0,200, 80,0,CF,8A,600, C0, DO, E0, FO, CC 


1630 DATA E4,CC,0, 20, CO, DO, FO, DB, CC 
,10,240, 80, C0, 0, E2, 80,600, 40,0, AO 
1640 DATA 50,D8, CC, 88, 0, 20, CO, FO, E4 
,D8, CC, 10, A0, 40,0, C0, 40, D, 80, 300 
1650 DATA 40,80, F0, E0, FO, 44, 88, 30, 2 
0,200, 20,C0, E0, 2F0, 88, 10, 80, 44, À, CO 


1660 DATA 51,F3,80, 300, 40, 80, FO, E0, 
F0, 44,88, 30, 20, CC, 0, 20, CO, FO, 0, CC 
1670 DATA 0,10, 80, C0, 40, CO, 40, CO, 80 


1680 DATA 300, 40,80, F0, ÉO, FO, 44, 88, 
30, 20, 88, 0, 20, C0,0, C0, 0, CO, 10, 4C0 
1690 DATA 0,C5, 80, 300, 40, C0, 3FD, CC, 
98, 30, 20, CC, 0, 20,80, CO, E2, 80, CO, 10 
1700 DATA CO, 240, C0,0,C5, BA, A00, 10, 
64,CC,0,20, 40, 2D1,E2,C4, 10, CO, 0, 40 
1710 DATA CO,0,C5, 84, 400, CO, 3F0, BB, 
0,10,4,4C,8,C, 80,C0, 2E2, 80, 10, E0 
1720 DATA 85, 200,0, C5, 8A, 0, BA, 200, 2 
C0,D0, F0,88,0,4, CC, FO, EG, 8C, DO, 40 
1730 DATA 2E2, C4, 10, E0, 2C0, 80, 0, C5, 
8A,0,45,0,45, C0, DO, FO,E4, CC, 0, 24 
1740 DATA 4C,FO, A2, 8C, CO, AO, 3C0, 51, 
300,80, 40, C5, 0, 445, C0, E0, F0, Ea, 88, 0 


1750 DATA 24,9C, FO, B6, BC, CO, DO, 0, 40 
,5C0,D1,C0, C5, 0, 45, 200, CF, 2C0, DO, E4 


1760 DATA CC,0,64,2D, FO, A7, 6C, CO, DO 
,F0, 40, 7C0, C5, 0 

1770 DATA 0,CF,0,45,2C0, F0, E4, CC, 0, 
64,4F,DA, CF, BA, CO, 2F0, 88, 7C0, C5, 200 


1780 DATA 8A,0, BA, CO, 3F0,88, 0,64, CF 
,BA,CF, 4E, CO, DO, FO, 88, 40, 6C0, C5, 200 


1790 DATA 245, 8A, CO, 2D0, Ed, CC, 0, 44, 
4F,0,45,CE, CO, DO, 2E4, 40, 6C0, 45, 0, BA 


1800 DATA 45,CF,0,2C0,F0,E4, 88, 0, 20 
»CF,0,45,4E,C0,F0,2E4,88,6C0, 200, 45 


1810 DATA 2CF,0,C0, 2F0,E4,CC, 0,64, 4 
F,8A,CF,CE, CO, DO, FO, 2CC, 6C0, 200, 45, 
BA 

1820 DATA 2CF, 2C0, 2F0, 44, 0, 20, CF, 8A 
,CF,A, CO, 2F0,E4, 88, SCO, BO, 200, CF, 0, 
CF 

LVL 

1830 DATA BA, C0, E0, 2F0, 88, 0, 20, 3C,C 
F,3C, 8A, 2C0,F0, CC, 88, 40, 4C0, 80, 400, 
CF 

1840 DATA 0,C0, DO, FO,E4, 88,0, 34,6C, 


24 


LA 


VE 


VX 


LA 


>UB 





D8, FO, 2C, CO, 2F0,E4, CC, 40, 4C0, 80, 200 


1850 DATA 200, CF,0, C0, 2F0,E4,CC, 0,3 >PG 
4, 40,0, 50, 2, CO, DO, FO, DB, BB, 40, 4C0 

1860 DATA 500,CF,0,2C0, 2F0,88,0, 70, >XR 
CC, 2F0, A4, CO, DO, FO, 2CC, 51, 3C0, Di, 50 
0,CF 

1870 DATA 51,C0,2F0,E4, CC, 0, 34,200, 
44,20, CO, 2F0,E4, BB, 40, 3C0, Di, 500, CF 
,DB 

1880 DATA CO, 2D0,E4, CC, 0, 70, CC, DB,F 
0,40,0,50,F0,CC, 0,51, 3C0, D, A2, 400 
1890 DATA DB,F3,0,2F0, 2CC, 0, 50, 300, 
40,500, 40, 4C0,51,500,51, 600, 50, CC, 2 
DB, AO 

1900 DATA 42,400, 40, 3C0, Di, 0, A2, 500 >YV 
51,800, A2, 300, E2, 3C0, D, 200, A2, 200 
,51,A2 

1910 DATA 51,0, A2, 400,54, 200, F3, 242 
,300, E2, 4C0, 200, A2 

1920 DATA 200, A2,F3, A2, 251, 400, 3FC, DIX 
51,500, 5C0, A2, 51,400, A2, 0, 42,500, FC 
,54,0 

1930 DATA AB, 242, 300,2, 4C0, A2, 0, A2 
200, 2A2,0,F3,A2,300,51,0,FC, AB, F9, 
0 

1940 DATA 42,300, 5C0, A2, 0, A2, 0, 351, 
0,A2,0, 2,300, A2, 0, FC, AB, 51, A2, 300 
1950 DATA 2E2, 3C0, A2, 300,51, 0,51, 20 
0,2,51,200,F3,0,54, A8, FC,51,0, A2, 0 


vi 


>QA 


>XZ 


1960 DATA 51,C0,E2,3C0,A2,600,F3,0, >QM 
51,300, A2, 200,FC,A8,F9,0,A2,0,51,D1 


1970 DATA CO,D1,C0,E2,D1, A2, A00, F3, 
400,FC,F9,51,0,251,D1,C0, Di, CO, Dt,C 
0 

1980 DATA A2,900,A2,51,F3, A2,0, 254, >HH 
0,51,200,E2, 3D1, CO, Di, CO, 80,0 

1990 DATA E00, 254, 300,51, E2,D1, CO,E 
2,D1,F3,A2, 1500, F3, E2, CO, E2, F3, A2, 1 
600,51 

2000 DATA 3F3, A2, 8F00 

2010 " 

2020 ' data 2 

2030 " 

2040 DATA C0,80,0, 40, CO, 40, CO, 240,9 
00, C0, 80,0, Di, CO,0, 40, SE2, A2, 800, 2C 
0 

2050 DATA 0,D1,E2, 80, 40, 2E2, CO, E2, D 
1,2, 800, D1,E2, A2,D1,51, 80, 40, CO, E2 


2060 DATA Di,2E2,900,51, 40, A2,D1,0, 
D1, 40, 3E2, 40, E2, A2, 900, 40, A2, D1, 0, D 
1 

2070 DATA 0,6A2,900, 40, A2, D1,0,D1,1 >RH 
000,C0, A2, Di,0,D1,540, CO, 40, CO, 40, C 


0 
2080 DATA 340,C0,0, 40, D1,0 TU 
2090 DATA Di,0,D1, 40, 2E2,C0,E2,F3,E >PX 
2,F3,3E2, CO, E2, F3, A2, 40,D1, 0, D1, 40 

2100 DATA Di, 40, 2E2,CU, 2E2, 40,86, 4û 204 
,2E2,C0,E2, CO, 0, C0, A2,0,D1, CO, F3, 40 


2110 DATA 2E2,C0,3E2, F3, 40, 2E2, CO, A >VV 
2,E2, A2, 200,0, C0, D1, A2, 40, CO, 3E2, C0 

E2 

’ 

2120 DATA CO, 40, C0, 3E2, CO, A2, 2C0, A2 >XY 
,51,F3,200, F3, 3A2,F3, A2, F3, A2, F3, 34 ) 


2,F3 19 


2130 DATA A2,51,F3, A2, 3F00 





AO MRRRRRUNNRNNNNNNNRNNNES 
20 ‘## #4 
30 ‘## DARK DUNGEONS II ## 


40 ‘#1 H >LD 
50 ‘## By F.Barnabe #4 LE 
60 ‘#4 # >LF 
TO PARARRUNMRNUNRNNNENNNES >LG 
80 ? >LH 
90 " Initialisation )LJ 
100 ? >RB 
110 POKE 25997,13 >LF 
120 HODE 0:G0SUB 1590:tabl=1:RESTOR >JG 
E 2170 
130 DIM sprite(14),ta(21,12) >dG 
140 DEF FNad(x,y)=49152+y#80+x#2 >ZK 
150 FOR i-0 TO 14:sprite(i)=25000+i >LX 
#64:NEXT 
160 vitesse-80:tabl=tabl-1:vie=3:G0 >PM 
SUB 1890 
170 ? )RJ 
180 ’ Anisation >RK 
190 )TA 
200 IF ok=2 THEN GOSUB 1890 >UX 
210 FOR i=1 TO vitesse:NEXT >) 
220 IF cl=0 THEN j=J0Y(0) ELSE GOSU >GU 
B 1460 
230 IF INKEY(67)=0 THEN 970 DUT 
240 IF j=16 THEN 1090 NE 
250 ON j GOTO 270,380,220,600,220,2 >KH 
20,220, 490 
260 GOTO 220 NY 
Ziü ÏF ja<>3 THEN GUSUB /10:CALL 25 Ab 
576,FNad(xi,y1),sprite(2):ja=j:GO0TO 
210 
280 x2=x1:y2=y1-2:GOSUB 750:1F ok)0 >LB 
THEN 200 
290 CALL 25576,FNad(x1i,y1),sprite(0 >ED 
) 
300 yi=yi-1 >VA 











310 CALL 25576,FNad(xi,y1),sprite(3 
) 

320 FOR i=1 TO vitesse:NEXT 

330 CALL 25576,FNad(x1,y1),sprite(0 
) 

340 yi=y1-1 

350 CALL 25576,FNad(xi,y1),sprite(2 
) 

360 FOR i=1 TO vitesse:NEXT 

370 ja=j:G0TO 220 

380 IF ja(>j THEN GOSUB 710:CALL 25 
576,FNad(x1,y1),sprite(4) :ja=j:G0TO 
210 

390 x2=x1:y2=y1+2:G0SUB 750:1F ok)0 
THEN 200 

400 CALL 25576,FNad(xi,y1),sprite(0 
) 

410 yi=yi+i 

420 CALL 25576,FNad(xi,y1),sprite(s 
) 

430 FOR i=1 TO vitesse:NEXT 

440 CALL 25576,FNad(xi,y1),sprite(0 
) 

450 y1=yi+i 

460 CALL 25576,FNad{xi,y1),sprite(4 
) 

470 FOR i=1 TO vitesse:NEXT 

480 ja=j:GO0TO 220 

490 IF ja(>j THEN GOSUB 710:CALL 25 
576,FNad(x1,y1),sprite(7) : ja= j:GOTO 
210 

500 x2=x1+2:y2=y1:GOSUB 750:1F ok)0 
THEN 200 

510 CALL 25576,FNad(x1,y1), sprite(0 
) 

520 xi=xiti 

530 CALL 25576,FNad(xi,y1),sprite(i 
) 

540 FOR i=1 TO vitesse:NEXT 

550 CALL 25576,FNad(xi,y1),sprite(0 
) 

560 x1=xit1 

570 CALL 25576,FNad(xi,y1),sprite(7 
) 

580 FOR i=i TO vitesse:NEXT 

590 ja=j:G0TO 220 

600 IF ja(>j THEN GOSUB 710:CALL 25 
576,FNad(xi,y1),sprite(6) : ja=j:GO0TO 
210 

610 x2=x1-2:y2=y1:GOSUB 750:1F ok)0 
THEN 200 

620 CALL 25576,FNad(x1,y1),sprite(0 
) 

630 xi=x1-1 

640 CALL 25576,FNad(xi,yi),sprite(8 
) 

650 FOR i=i TO vitesse:NEXT 


25 


WE 
EL 


ND 





660 CALL 25576,FNad(xi,y1),sprite(0 
} 

670 xi=xi-i 

680 CALL 25576,FNad(xi,y1),sprite(6 
) 

690 FOR i=1 TO vitesse:NEXT 

700 ja=j:G0TO 220 

710 IF j=1 AND ja=2 THEN CALL 25576 
,FNad(xi,y1),sprite(7):FOR i=1 TO v 
itesse:NEXT:RETURN 

720 IF j=2 AND ja=1 THEN CALL 25576 
»FNad(xi,y1),sprite(6):FOR i=1 TO v 
itesse:NEXT:RETURN 

730 1F j+ja=12 THEN CALL 25576, FNad 
(xi,y1),sprite(4):FOR i={ TO vitess 
e:NEXT:RETURN 


740 RETURN 

750 ? 

760 * collision 

770 ? 

780 ok=0:a=(x2+1)/2+1:b=(y2-1)/2#1 

790 ON tala,b) GOTO 1260,810, 890,83 
0,840 

800 RETURN 

810 IF torche<3 THEN ta(a,b)=0:torc 
he=torche+1:CALL 25576, FNad(torchet 
2+5,0),sprite(11):SOUND 7,0,1,15,,, 


2 ELSE ok=1 

820 RETURN 

830 clef=1:CALL 25576,FNad(14,0), sp 
rite(13):tala,b)=0:SOUND 7,0,1,15,, 
, 4: RETURN 

840 IF clef=1 THEN ok=2:clef=0:i=RE 
MAIN(O) ELSE ok=1 

850 RETURN 

860 ? 

870 " Mort 

880 ’ 

890 I=REMAIN(O):SPEED INK 1,1 

900 INK 9,7,0:INK 10,6,0:INK 11,3,0 


910 IF vie=0 THEN 960 

920 CALL 25576,FNad(vie#2-2,0),2500 

O:vie=vie-{ 

930 FOR i=1 TO 1000:NEXT 

940 INK 9,0:INK 10,0:INK 11,0:SPEED 
INK 10,10 

950 ok=1:RETURN 

960 FOR i=1 TO 1000:NEXT 

970 MODE 1:SPEED INK 10,10 

980 INK 2,10:INK 3,26 

990 TAG#1:A$="GAME OVER": x=240:y=22 

0:GO0SUB 1730 

1000 FOR 1=1 TO 2500:NEXT 

1010 MODE O:RUN 

1020 MODE 1:1INK 1,26:1INK 2,10:INK 3 

,26:TAG#1 


)IA 
>AR 


NT 
>PZ 


>KR 


1030 A$="BRAVO ARTHUR... ":x=220:y= 

220:G0SUB 1730 

1040 FOR 1=1 TO 3000:NEXT:MODE O:RU 

N 

1050 MODE 1:1NK 1,26:INK 2,10:INK 3 
,26:TAG#1 

1060 AS="TABLEAU :"+STR$ (tabl ) :x=24 

0:y=220:G0SUB 1730 

1070 FOR 1=1 TO 2000:NEXT 

1080 MODE O:WINDOW #2,1,40,25,25:RE 
TURN 

1090 ? 

1100 ’ torche 

1110 ? 

1120 IF torche=0 THEN 220 

1130 SOUND 1,0,10,7,,1,15:SOUND 1,0 
,10,7,,1,5 

1140 t=t+8:EVERY 50,0 GOSUB 1190 
1150 torche=torche-{ 

1160 CALL 25576,FNad(torchez2+7,0), 
25000 

1170 INK 9,23:INK 10,10:INK 11,3 
1180 FOR 1-1 TO VITESSE+#2:NEXT :GOTO 
220 

1190 t=t-1 

1200 IF T=1 THEN SPEED INK 1,1:1INK 
9,23,0:INK 10,10,0:1INK 11,3,0 

1210 IF t=0 THEN i=REMAIN(O):INK 9, 
O:INK 10,0:INK 11,0:SPEED INK 10,10 


1220 RETURN 

1230 

1240 ? boule 

1250 ? 

1260 xd=x2-x1:yd=y2-y1 

1270 SOUND 2,0,1,15,,,21 

1280 IF tala+xd/2,b+yd/2)=0 THEN 12 
90 ELSE ok=1:RETURN 

1290 SOUND 1,50,1,15:SOUND 2,0,1,15 
51521 

1300 CALL 25576,FNad(x2, y2),25000:t 
a(a,b)=0 

1310 a=a+xd/2:b=b+yd/2 

1320 tala,b)=1:CALL 25576,FNad(x2+x 
d,y2+yd),sprite(10) 

1330 IF ta(a,b-1)=1 THEN IF ta(a,b- 
2)=1 OR tala,b+1)=1 THEN 1380 

1340 IF ta(a,b+1)=1 THEN IF ta(a,bt 
2)=1 OR tala,b-1)=1 THEN 1380 

1350 IF ta(a-1,b)=1 THEN IF ta(a-2, 
b)=1 OR ta(a+i,b)=1 THEN 1380 

1360 IF ta(ati,b)=1 THEN IF ta(at2, 
b)=1 OR ta(a-1,b)=1 THEN 1380 

1370 RETURN 

1380 IF clef(2 THEN RETURN 


FE 
JVC 


1390 SOUND 1,50,1,15:SOUND 2,0,1,15 DEP 


»112 








1400 CALL 25576, FNad(xc, ye), sprite( 
13) 

1410 clef=0:ta((rc+1)/2+1,(yc-1)/2+ 
1)=4 

1420 RETURN 

1430 ? 

1440 " clavier 

1450 ? 

1460 j=0:1F INKEY(0)=0 THEN j=1 
1470 IF INKEY(2)-0 THEN j=2 

1480 IF INKEY(B)=0 THEN j=4 

1490 IF INKEY(1)=0 THEN j=8 

1500 IF INKEY(47)=0 THEN j=16 

1510 RETURN 

1520 ? 

1530 ’ tiser 

1540 ’ 

1550 tiner=tiser-1 

1560 SOUND 1,100,2,5,0,0,15 

150 ÎF tiser:U THEN 1=RERAIN(1) 
1580 RETURN 

1590 ? 

1600 ’ Presentation 

1610 ? 

1620 a$=INKEY$ 

1630 WHILE A$C)"":AS$=INKEYS : VEND 
1640 FOR i=1 TO 13:1NK i,PEEK(25984 
+i):NEXT:INK 10,6:CALL 25972 

1650 GOSUB 1760 

1660 MODE 1:1NK 2,10:INK 3,26:PRINT 
CHR$(23)+CHR$ (3) 


1670 TAG#1:a$="JOYSTICK 1":x=200 
:y=260:GO0SUB 1730 
1680 A$="CLAVIER 2":x=200:y=200 


:GOSUB 1730 

1690 A$=INKEY$ 

1700 CL=VAL(A$)-1 

1710 IF CL=1 OR CL-0 THEN MODE O:RE 
TURN 

1720 GOTO 1690 

1730 PLOT -2,0,1:MOVE x,y:PRINT#,a 
$; 
1740 PLOT -2,0,2:M0VE x+6,y-6:PRINT 
Hi,at; 

1750 RETURN 

1760 ? 

1770 ’ Musique 

1780 

1790 ENT -1,1,1,5,2,-1,5,1,1,5 

1800 RESTORE 1800:i-=1:WHILE i(>62 A 
ND a$-"" 

1810 READ 5,d:a$=INKEY$ 

1820 IF s=0 THEN SOUND 1,0,d#40,1:S 
OUND 2,0,d#40, 1:SOUND 4,0,d#40,1:G0 
TO 1840 

1830 SOUND 1,5/2,d240,5,, 1:SOUND 2, 
s#2,d#40,4,,1:SOUND 4,5,d#40,4 


26 


GG 


)FA 


Del 
JYU 


WP 


NF 


)1A 
>LK 
>FG 


>ND 
>FB 


>JH 


>FG 
»YG 
>YH 
De 
>VH 





>JC : 


>RP 
AC 


>KU 


1840 i=i+1:WEND:1F a$C>"* THEN RETU 
RN ELSE 1800 

1850 DATA 568, 1,379,1,426,0.5,379,0 
.5,358, 1,426, 1,379, 3,239, 1,0,0.05,2 
39,1.5,253,0.5,284,1,319, 1,284,3 
1860 DATA 568,1,379,1,426,0.5,379,0 
.5,358,1,426,1,379,3,239,1,0,0.05,2 
39,1.5,253,0.5,284, 1,319, 1, 284,3 
1870 DATA 379,1,239,1,253,0.5,284,0 
.5,319,1,358,1,379,2,426,1,253,1,0, 
0.05,253,1,284,0.5,319,0.5,284, 1,35 
8,1,379,3 

1880 DATA 0,0.05,379, 1,239, 1,253, 0. 
5,284,0.5,319,1,358, 1,426, 2,506, 1,3 
58,1,379,1,426,0.5,379,0.5,506, 1,47 
8,1,568,3,0,2 

1890 ? 

1900 lecteur tableaux 

1910 ? 

1920 tabl=tabl+1:1F tabl=16 THEN 10 
20 

1930 GOSUB 1050 

1940 FOR i=1 TO 15:INK i,0:NEXT 
1950 FOR i=1 TO 20:CALL 25576,FNad( 
i#2-1,2),sprite(12):CALL 25576, FNad 
(i#2-1,23),sprite(12):ta(i,1)=3:ta( 
i,12)=3:NEXT 

1960 FOR i=1 TO 11:CALL 25576, FNad( 
0,142),spritetiz):CALL 25b4b,FNadty 
8,i#2),sprite(12):ta(1,i)=3:ta(21,i 
)=3:NEXT 

1970 FOR i={1 TO vie:CALL 25576.FNad 
(i#2-2,0),sprite(S):NEXT 

1980 FOR i=1 TO torche:CALL 25576,F 
Nad(i#2+5,0),sprite(11):NEXT 

1990 FOR i=1 TO 15:INK i,0:NEXT 
2000 SPEED INK 10,10:CLS582 

2010 FOR j=2 TO {1:READ a$:FOR i=2 
TO 20:b=VAL(MID$(a$,i-1,1)) 

2020 tali, j)=b 

2030 SOUND 1,150-(j#10+i),1,7,,,2 
2040 ON b GOSUB 2110,2110,2110, 2130 
2110, 2120 

2050 IF b=0 THEN CALL 25576,FNad((i 
-1)42-1,(j-1)#2+1),25000 

2060 NEXT:NEIT 

2070 FOR i=1 TO 13:INK i,PEEK(25984 
+i):NEXT:INK 14,0,6:INK 15,6,0 


2080 tiser=1S:EVERY 50,1 GOSUB 1520 


2090 WHILE timer(>0:WEND 

2100 INK 9,0:INK 10,0:INK 11,0:RETU 
RN 

2110 CALL 25576,FNad((i-1)#2-1,(j-1 
)#2+1),sprite(9+b) :RETURN 

2120 xi=(i-1)#2-1:y1=(j-1)22+1:tali 
,3)=0:CALL 25576,FNad(x1,y1),sprite 


>PD 


(4): ja=2:RETURN 


2130 xc=(i-1)#2-1:yc=(j-1)#2+1:ta(i >PE 


,))=0:CALL 25576,FNad(xc, yc), 25000: 


clef=2:RETURN 

2140 ? 

2150 ’ data tableaux 

2160 ! 

2170 DATA 0003603005333330000 
2180 DATA 0003003000333330000 
2190 DATA 0403203000333330001 
2200 DATA 0000003000333331010 
2210 DATA 0003000000333330000 
2220 DATA 3333333300333330000 
2230 DATA 3333333300000000000 
2240 DATA 0000000000003333333 
2250 DATA 0200000000023333333 
2260 DATA 0002300032003333333 
2270 ! 

2280 DATA 0003000333300003000 
2290 DATA 2000000333300003100 
2300 DATA 0003000000000003000 
2310 DATA 0003333330300000002 
2320 DATA 0000100300333303333 
2330 DATA 3303303360320003333 
2340 DATA 3303003333333303333 
2350 DATA 3303000000000000000 
2360 DATA 0000000000001 000000 
2370 DATA 5003000333300003004 
2380 ’ 

2390 DATA 3333332000002333333 
2400 DATA 3333000000000003333 
2410 DATA 3333030033300303333 
2420 DATA 3330000331330000333 
2430 DATA 3330300056400300333 
2440 DATA 3330030330330030333 
2450 DATA 3330000030300000333 
2460 DATA 3333130000000313333 
2410 DATA 3333UUUUUUUUUUUSS33 
2480 DATA 3333332003002333333 
2490 

2500 DATA 2333330333330333323 
2510 DATA 0333330333330100003 
2520 DATA 0100000000000333303 
2530 DATA 0333330333330333305 
2540 DATA 0333330333330333303 
2550 DATA 0333330016000333303 
2560 DATA 0000000333330000003 
2570 DATA 0333330333330333303 
2580 DATA 0333330333330333304 
2590 DATA 2333330000000000023 
2600 ? 

2610 DATA 3100000005000000003 
2620 DATA 0000000033300000000 
2630 DATA 0330003313133000030 
2640 DATA 2003003100013003002 
2650 DATA 3303003306033003033 
2660 DATA 000030310001 3030004 


)XK 
)YA 
>YB 

)vC 

YR 

>VA 

>vH 

>VG 
VF 

>VQ 

)WN 

>VU 
>VB 

»YD 
>VP 

>VQ 
VU 
>VN 
JW 
)VK 
>vQ 
VC 
> 
>vZ 
)YF 
>vQ 
>VP 
>VG 
>vZ 
)VJ 
»VG 
Di! 
)VE 
vi 
YU 
>YH 
NT 
)vC 
DE 
JVU 
NT 
>WK 
>VQ 
)vu 
)VY 
)VY 
>YA 
dVE 
»vC 
VX 
>VP 
>VK 
)VR 











2670 DATA 3131313313133131313 
2680 DATA 3000000000000000003 
2690 DATA 3000000300033333003 
2700 DATA 3330000303032000033 
2710 ? 

2720 DATA 1313131315131313131 
2730 DATA 0000000000000000000 
2740 DATA 3030203030303030203 
2750 DATA 0000303030003000300 
2760 DATA 1313131316131313131 
27170 DATA 0000000000000000000 
2780 DATA 3030303020303030203 
2790 DATA 0000000000000000004 
2800 DATA 3131313131313131313 
2810 DATA 3333333333333333333 
2820 ? 

2830 DATA 3330003333333330003 
2840 DATA 3000300000023300303 
2850 DATA 3033333033333303303 
2860 DATA 3033331200000013300 
2870 DATA 3000030000000003330 
2880 DATA 3303000005600020000 
2890 DATA 3303330000000003303 
2900 DATA 3303330100000003303 
2910 DATA 3300003033333033303 
2920 DATA 3333300033333000043 
2930 

2940 DATA 0030000000003003000 
2950 DATA 3002305030100060020 
2960 DATA 0003000000300000030 
2970 DATA 0000003000003030000 
2980 DATA 0030000003000000300 
2990 DATA 0000300000000300003 
3000 DATA 0300103000030010300 
3010 DATA 0003000030000300030 
3020 DATA 0300030300300003003 
3030 DATA 2003000430003000002 
3040 ? 

3050 DATA 3333000303003333005 
3060 DATA 3200000300003200000 
3070 DATA 3333000303003333000 
3080 DATA 3333003313000000033 
3090 DATA 3000000003033330033 
3100 DATA 3033031333032000000 
3110 DATA 3003036300033330033 
3120 DATA 3303030103000000033 
3130 DATA S0050S0SusuuDudDUSS 
3140 DATA 3433000000033330000 
3150 

3160 DATA 3000000000000000002 
3170 DATA 3030004333333333330 
3180 DATA 0003033330000033330 
3190 DATA 1333033500033000000 
3200 DATA 0033133333333333330 
3210 DATA 0301610000003030030 
3220 DATA 0033131333333030030 
3230 DATA 0000030000000010030 


27 


NT 
VF 
)VB 
WW 
)YC 
NL 
)W 
VB 
>VN 
»VR 
)VZ 
VF 
WE 
)VWK 
VF 
)YE 
)VN 
VU 
VX 
)VB 
YVR 
)VA 
)VD 
)Vu 
NV] 
)vL 
»YG 
»VH 
)VB 
>WK 
)VL 
>VH 
)VN 
»VA 
»VZ 
)VG 
)VG 
)iK 
»VD 
VF 
)VA 
>vZ 
> 
»vQ 
>VB 
>VH 
zvn 
NT 
»ÿB 
NY 
>VQ 
>vZ 
>VA 
>VH 
)WK 
NC 
)VY 





3240 DATA 3333000003333033330 
3250 DATA 3333333333333000002 
3260 

3270 DATA 3333333333333000333 
3280 DATA 3500000000000000000 
3290 DATA 3333000000333330000 
3300 DATA 000000013331 1300000 
3310 DATA 0232301330331000000 
3320 DATA 0333303311333003333 
3330 DATA 0300000016100000033 
3340 DATA 2303303330331033033 
3350 DATA 3303301330333033033 
3360 DATA 3300004331320000033 
3370 ! 

3380 DATA 0000033000003300000 
3390 DATA 2000000000003310300 
3400 DATA 0002033000000000000 
3410 DATA 0000033000003300000 
3420 DATA 3033333333333333303 
3430 DATA 3000033000003300003 
3440 DATA 3000033010003300003 
3450 DATA 3000000000063300003 
3460 DATA 3000033001043300003 
3470 DATA 3000033000003350003 
3480 ? 

3490 DATA 2333300033300000000 
3500 DATA 0033000000000033300 
3510 DATA 0100003333300031300 
3520 DATA 0000003420333033356 
3530 DATA 0300333000333033333 
3540 DATA 0300313101313000023 
3550 DATA 0300333303333000003 
3560 DATA 3000000000000003333 
3570 DATA 3333333300333333333 
3580 DATA 3200000000000000023 
3590 ? 

3600 DATA 3100300130300000000 
3610 DATA 1503130510303333330 
3620 DATA 3003330030300000230 
3630 DATA 2000600000003331330 
3640 DATA 3003330030303330000 
3650 DATA 1503130510303110330 
3660 DATA 3100300130303400330 
3670 DATA 3333333333303313330 
3680 DATA 0000030003000000000 
3690 DATA 2030000300033333333 
3400 ‘ 

3710 DATA 3302003033330233403 
3720 DATA 3303303030000003300 
3736 DATA 3000000000033000330 
3740 DATA 0030330000030000000 
3750 DATA 0330330303330003303 
3760 DATA 0030330010603303300 
3770 DATA 3030330303010300330 
3780 DATA 5030330303300000300 
3 1YÙ DATA 333033030300 333330S 
3800 DATA 3332000333000021323 


VF 
>VH 
»YD 
)vX 
>VE 
>VB 
)VE 
>vQ 
>VK 
>VK 
>VK 
>VH 
A 
YF 
>VK 
)VL 
>VY 
>VD 
)vY 
>VH 
>VP 
>VP 
>vu 
)VX 
>YH 
>VZ 
»VG 
>VR 
NN 
>VH 
>Vu 
>VD 
>VN 
>VD 
)VK 
>YK 
>VG 
)VL 
NU 
>vy 
>VA 
>VH 
>vC 
»VC 
>VG 
>VL 
)YC 
>VK 
)Vu 
>VN 
>VK 
A 
)VE 
VE 
VE 
>vù 
>VCa 


THE ENERGY OF 


MOI 


Votre planète est menacée ! De 
mystérieux caissons sont 
apparus sur toute la planète. Ils 
contiennent une énergie très 
instable qui change de couleur. 
Lorsqu'elle est blanche vous 
pouvez l’attraper, lorsqu'elle est 
noire tout contact avec elle est 
mortel et lorsqu'elle est rouge 
on ne peut l’attraper (elle 
devient transparente). Votre 
planète est en sursis, un 
tremblement de terre et c’est la 
fin. Vous devez donc récupérer 
tous les caissons dans les 
régions les plus hostiles de Wok. 


2 = LISTING 1 z 
3 "= BASIC = 


10 CLS:SPEED INK 100,5 


—. 
Lit 
Le 


Stéphane DE CANEVA 





Valable pour CPC 464 - 6128 


L es 40 tableaux des 4 niveaux du jeu 

sont bourrés d’astuces (bombes, 
clés, portes, brique se formant peu à peu...) 
et le maître de la région vous attend à la 
fin de chaque niveau, alors. SOYEZ 
VIGILANTS !!! 


7 


Chargement : les listings 2 à 7 gé- 
nèrent 6 programmes binaires qui doi- 
vent être sauvegardés sur une autre cas- 
sette (ou disquette) que le programme 1 
(Basic). Le listing 8 reliera tous ces pro- 
grammes en un seul programme binaire 
qui devra, lui, être sauvegardé à la suite 
du programme Basic. 





Commandes : Clavier : I = haut, J = 
gauche, K = droite, M = bas, barre es- 
pace = utiliser bombe ou joystick (pour 
le clavier les lettres doivent être position- 
nées en majuscule). 


Astuces : pour les vies infinies (ou 
presque) rajouter dans le programme 
Basic : 35 POKE &9029,&FF. 

Pour ne pas revenir au début après 
avoir perdu vos 3 vies, enlevez le POKE 
&90IA,1 de la ligne 240. 





FA | :NEXT:FOR A=1 TO 50:PLOT INT(RND(1)#640), INTURND(1)#400 
>FB | ),9:NEXT:POKE &A2E2,8:POKE &A2E4,96:CALL &A29A, 28, 104, & 


>FC | 3400 


)FD | 80 POKE &A2E2,8:FOR A=1 TO 96:POKE LA2E4, A:CALL &A278,2 DUU 


>QR | 8,200-A, 44900 :NEXT 
90 POKE &A2DC,O:POKE &A2DD, KOA:POKE LA2E3,8:POKE LA2ES, DUC 


20 DATA 15,24,3,6,15,0,11,1,23,26, 12,18, 19,9,6,0 HT 
30 IF PEEK(&3000)=0 THEN MEMORY LA48FF:LOAD"!WOK.BIN":PO LP 
KE 43000, 1 , k4900:NEXT 
40 RESTORE 20:FOR A=0 TO 15:READ K:INK A,K:NEXT >QP 


50 DEF FN LE(X)=&4CB0+(X-48)#16 
60 INK 0,0:HO0DE O:BORDER 6:PAPER O:CLS 


70 FOR A=1 TO 50:PLOT INT(RND(1)#640), INT(RND(1)#400),6 >BF 


So:FUR A=1ua Tù 5u DTEF -2:LALL &AZAÀ, 26, À, &IAUU, 26, À- 


100 POKE &A2E5,32:FO0R A=28 TO 34 STEP 2:CALL &A2AA, A, 80 >CD 


DIN | ,&3B00, A+2, 80, &&AOO:NEXT 
>FC | 110 FOR A=28 TO 42 STEP 2:CALL RA2AA, À, 112,43C00, A+2, 11 DLA 


2, k4BOO:NEXT 


28 





120 FOR A=48 TO 78 STEP 2:CALL &A2AA, 28, A,&3A00,28,A+2, DYA 

&4900:CALL &A2AA, 44, 160-A,43C00, 44, 160-A-2, k4B0O :NEXT 

130 MOVE 630,400:DRAW 590,350, 15:DRANW 580,250:DRAW 530, >GP 

200:DRAW 520, 150:MOVE 590, 350:DRAW 520,300:DRAW 520,250 
:DRAW 515,230:MO0VE 520,300:DRAW 460,230:DRAN 440, 150:DR 

AW 470, 100 

140 FOR 1=1 TO 300:NEXT:INK 0,15:1INK 15,24:INK 14,24:F0 >BZ 

R K=1 TO 15:SOUND 7,0,1,(15-K)/2,0,0,K:NEXT:INK 0,0: INK 
15,0:FOR A=1 TO 40:NEXT:INK 0,15:INK 15,24:INK 14,24 

150 FOR K=1 TO 15:SOUND 7.0,1,(15-K)/2,0,0,K:NEXT: INK O DHL 
50: INK 15,0:FOR A=1 TO 80:INK 14,6:NEXT:FOR A=1 TO 1000 
:NEXT 

160 INK 0,15:INK 15,24:INK 14,24:FOR K=1 TO 15:SOUND 7, )AE 

0,1,(15-K)/2,0,0,K:NEXT:A$="THE ; ENERGY ;0F" :XL=28:YL=70: 

GOSUB 320:INK 0,0:1INK 15,0:1NK 14,6:FOR A=1 TO 2000:NEX 

T:INK 5,0:INK 0,0 

170 PAPER 5:CLS:INK 14,6,24:POKE LA2E2,B:POKE &A2E4,32: )FN 

CALL &A278,28,11,44900:CALL &A278,36, 11, &kA4AOO:CALL &A27 
8,44,11,844B00:A$="THE ;ENERGY ;0F":1L=28:YL=1:G0SUB 320:A 
$="PAR":XL:37:YL=60:GO0SUB 320:A$="STEPHANE ; DE; CANEVA":X 
L=22:YL=70:GOSUB 320 

180 A$="J;0YSTICK":XL=31:YL=120:G0SUB 320:A$="K;EYBOARD >TR 
":XL=31:YL=150:G0SUB 320:A$= "COPYRIGHT ; 1990 ; BY ; DECA ; SOF 
TWARE":1L=10:YL=192:G0SUB 320:1INK 5,0,15:INK 0,0, 15 

190 READ A$,B$,C$:1F A$Q"-1" THEN SOUND 1,VAL("&"+A$), >ZN 
VAL("&"+B$),VAL("&"+C$) ELSE RESTORE 360 

200 I$=UPPERS(INKEYS):1F 1$="K" THEN HA=73:BA=77:GA=74: DAC 
DR=75:FE=32 ELSE IF 1$="J" THEN HA=11:BA=10:GA=8:DR=9:F 
E=88 ELSE 190 

210 INK 5,0:INK 0,0:INK 14,0 DUE 
220 CLS:A$="LEVEL;01":XL=32:YL=96:G0SUB 320:F0R A=1 TO KL 

999 :NEXT 

230 POKE &9136,HA:POKE L913B,BA:POKE &9145,DR:POKE 4914 WT 
0,GA:POKE &914A,FE 

240 POKE &9O1A,1:CALL &9023:G0T0 260 )CL 
250 CALL 49032 )JB 
260 IF PEEK(49002)=0 THEN CLS:A$="GAME; ; OVER" :1L=30:YL= )EJ 

96:G0SUB 320:F0R A=1 TO 10:SOUND 1,2000, 20, 15:NEXT : RUN 

270 IF PEEK(49006)=1 THEN POKE &9006,2:CLS:A$="LEVEL:02 DYA 
":XL:32:YL=96:G0SUB 320:FO0R A=1 TO 999:NEXT:GOTO 250 

280 IF PEEK(49006)=2 THEN POKE &9006,3:CLS:A$="LEVEL:;03 )YE 
":XL=32:YL=96:G0SUB 320:FO0R A=1 TO 999:NEXT:GOTO 250 

290 IF PEEK(49006)=3 THEN POKE 49006, 4:CLS:A$="LEVEL:04 >ZA 
*:XL:32:YL-96:G0SUB 320:FO0R A=1 TO 999:NEXT:GOTO 250 

300 IF PEEK(&9006)=4 THEN POKE 49006, 1:CLS:A$="VOTRE; PL )TV 
ANETE ; EST ; SAUVEE" :XL=16:YL=120:G0SUB 320:PEN 4:LOCATE 8 
,12:PRINT'BRAVO!":FOR A=1 TO 1500:NEXT :RUN 


310 END >RH 
320 POKE LA2E4,8:POKE &A2E2,2:FOR A=1 TO LEN(A$) >PP 
330 B-FN LE(ASC(MIDS(A$, À, 1))) >10 
340 CALL &A278, XL, YL,B:XL=XL+2 DA 
350 NEXT:RETURN >HC 
360 DATA 1,3,0, 1DD, À, 2,1,3,0 >UH 
370 DATA 1DD,4,2,1,3,0, 1DD, A, 2 Ju 
380 DATA 1,3,0, 1DD,A,2,1,3,0 >UK 
390 DATA 1DD, A, 2,1,3,0,777,64,E >XR 
400 DATA 1,3,0,5EC,64,E,1,3,0 W 





410 DATA 4FB,64,E,6A6, 32,E, 1,3,0 
420 DATA 597,32,E,1,3,0,470,32,E 
430 DATA 1DD,4A,2,1,3,0,1,3,0 

qaû DATA IDD, A2, 1,0, U, iUU, A2 

450 DATA 1,3,0, 1DD,A,2,1,3,0 

460 DATA 1DD,4,2,1,3,0,1,3,0 

470 DATA FD,4,2,1,3,0,FD,A,2 

480 DATA 1,3,0,FD,A,2,1,3,0 

490 DATA FD,4A,2,1,3,0,165,1E,2 

500 DATA 77,19,2,6A, 19,2,5E, 19,2 
510 DATA 5E,19,2,5E, 19,2,1,3,0 

520 DATA 77,19,2,1,3,0,77,19,2 

530 DATA 1,3,0,1,3,0,1,3,0 

540 DATA 77,19,2,1,3,0,77,19,2 

550 DATA SEC, 19,D, 4FB, 19,D,3F4,19,D 
560 DATA 777,19,D,777,19,D, 1DD, 19,2 
570 DATA 1,3,0,1DD,19,2,1,3,0 

580 DATA 1DD,19,2,1,3,0,5EC, 19,D 
590 DATA 4FB, 19,D,3F4,19,D,777,19,D 
600 DATA 777,19,D, 1DD,19,2,1,3,0 
610 DATA 1DD,19,2,1,3,0, {DD, 19,2 
620 DATA 1,3,0,5EC, 19,D, 4FB, 19,D 
630 DATA 3F4,19,D,777,19,D,777,19,D 
640 DATA 1DD,19,2,1,3,0, 1DD, 19,2 
650 DATA 1,3,0,1DD,19,2,1,3,0 

660 DATA 3BB,19,D,2F6,19,D,27D,19,D 
670 DATA 1FA,19,D, 1FA,19,D, 1FA,19,D 
680 DATA 3BB, 19,D,2F6,19,D, 2CB,19,D 
690 DATA 353,19,D,2F6,19,D,1,3,0 
700 DATA 2CB,19,D,1,3,0,2CB,19,D 
710 DATA 1,3,0,1FA,19,D,1,3,0 

720 DATA 1FA,19,D,1FA,19,D,1FA,19,D 
730 DATA 1FA,19,C,1FA,19,B,1FA,19,A 
740 DATA 1FA,19,9,1FA,19,8,1FA,19,7 
750 DATA 1FA,19,6,1FA,19,4, 1FA, 19,2 
760 DATA 1DD,19,2,1,3,0, 1DD, 19,4 
770 DATA 1,3,0, 1DD,19,6,1,3,0 

780 DATA 1DD,19,8,1,3,0, 1DD, 19,A 
790 DATA i,3,0,1DD,19,C,1,3,0 

800 DATA 1DD,19,E,1DD,19,E, ADD, 19,E 
810 DATA 777,64,E,1,3,0,5EC,64,E 
820 DATA 1,3,0,4FB,64,E,6A6,32,E 
830 DATA 1,3,0,597,32,E,1,3,0 

840 DATA 470,32,E, 1DD,A,2,1,3,0 

850 DATA 1,3,0,1DD,A,2,1,3,0 

860 DATA 1DD,4,2,1,3,0, 1DD, A,2 

870 DATA 1,3,0,1DD,A,2,1,3,0 

880 DATA 1,3,0,FD,A,2,1,3,0 

890 DATA FD,A,2,1,3,0,FD,A,2 

900 DATA 1,3,0,FD,A,2,1,3,0 

910 DATA 165, 1E,2,77,19,2,6A,19,2 
920 DATA 5E,19,2,5E, 19,2,5E, 19,2 
930 DATA 1,3,0,77,19,2,1,3,0 

940 DATA 77,19,2,1,3,0,1,3,0 

950 DATA 1,3,0,77,19,2,1,3,0 

960 DATA 77,19,2,77,64,F,77,64,E 
970 DATA 77,64,D,77,64,C,77,64,B 





980 DATA 77,64,A,77,64,9, 77,64,8 
990 DATA 77,64,7,77,64,6,77,64,5 
1000 DATA 77,64,4,77,64,B,1,3,0 
1010 DATA 77,64,B,1,3,0,1,3,0 
1020 DATA 77,64,B,77,64,B,77,64,B 
1030 DATA 5E,64,B,3F,64,B,3F,64,B 
1040 DATA 3F,64,B, 77,32, B,EE, 32, B 
1050 DATA 1DD, 32,B, 3BB, 32,B, 777,64,B 
1060 DATA 1,3,0,1,3,0,1,3,0 

1070 DATA 777,64,B,0,0,0,0,0,0 
1080 DATA -1,0,0,0,0,0,0,0,0 


2 = LISTING 2 3 
3 "= GRAPHISMES = 


10 MEMORY &7FFF:DEB-&8000 : LONG=&13D0:L1G=100:G0SUB 20:SAVE"W1" 
,B,DEB, LONG 

20 FOR A=DEB TO DEB+LONG STEP 16:S0H-0:FOR B=0 TO 15:READ A$:P 
OKE A+B,VAL("&"+A$) : SOM=SOM+VAL("&"+A$):NEXT:PRINT LIG:READ A$ 
21F SOMOVAL("&®+AS) THEN FRINT"ERREUR EN LIGNE" ;LIG:END ELSE 

LIG=LIG+10:NEXT 

30 RETURN 

100 DATA FC,F8,FC, F8, 78, 76, 78, 78,52,52,03,52,C3,D2,F0,F0,0A36 

110 DATA F4,F0,FC,F0,3C, F0, B4,F0, A1,F0,03,52,C3,D2,F0, F0, OBFB 

120 DATA F4,F8,FC,F8, FO, 78,B4,F0,52,F0,03,52,C3,D2,F0, F0, OBFB 

130 DATA FC,F8,FC,F8,F0, 78, B4, 78,F0,52,03,52,C3,D2,F0,F0,0B88 

140 DATA F8,F8,F8,F8, 78, 78,34€, 78,03,52,F0,52,F0,D2,F0, FO, OABD 

150 DATA FC,F8,FC,FB, 78,F0, 3C, 78,F0,52,03,52,C3,D2,F0,F0,0B10 
160 DATA FC,F8,FC,F8, 78,F0, 3C, 78,52,52,03,52,C3,D2,F0,FO0,0A72 

170 DATA FC,F8,FC,FB,F0, 78,B4, 78,A1,FO0,A1,F0,E1,F0,F0,FO,O0D4F 

180 DATA F4,F0,FC, F6, 76, 78,B4,F0,52,52,03,52,E1,F0,F0, FO, 0B16 
190 DATA F4,F0,FC,FB, 78, 78,B4, 78,F0,52,03,52,C3,F0,F0,F0,0B1E 
200 DATA 00,00,00,00, 00,00, 00, 00, 00, 00, 00,52, C3, F0, F0, FO, 03E5 

210 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
220 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00,00, 00, 00, 00, 00, 0000 

230 DATA 00,00,00,00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 

240 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 

250 DATA 00,00,00,00,00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 

260 DATA 00,00,00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 

270 DATA CC,D8,CC, D8, 70, 70, 30, 70, DO, DO, DO, DO, D2, D2, FO, FO, OBBC 

280 DATA CC,FO,CC,D8, 70, 70,30,F0, DO, DO, C0, DO,C3,F0, F0, F0, 0C23 

290 DATA CC, D8,CC, D8, 70, F0, 70,F0, DO, F0,C0,D0, C3. D2, F0, FO, OCCD 

300 DATA CC, FO, CC, D8, 70, 70, 70, 70, D0, DO, CO, DO, C3, FO, FO, FO, OBE3 

310 DATA CC,D8, CC, D8, 70, FO, 30, F0, DO, F0, C0, D0, C3, D2, F0, FO, OC8D 

320 DATA CC, D, CC, DB, 70, F0, 30, F0, DO, FO, DO, F0, D2, F0, F0, FO, OCEA 

330 DATA CC,D8,CC, D8, 70, F0, 70, 70, D0, DO, CO, DO, C3, D2,F0, FO, 0C2D 

340 DATA D6,D8, D6, D8, 70, 70, 30, 70, DO, DO, DO, DO, D2, D2, FO, FO, OBA4 

350 DATA CC,D8,E4,F0,B0, F0, B0,F0,E0, F0,E0,F0,C3,D2,F0, FO, ODCD 

360 DATA F0,D8,F0,D8,F0, 70,F0, 70,F0, DO, CO, DO, C3,F0,F0, FO, 0D33 

370 DATA D8,D8,D8, D8, 70, 70, 30,F0, DO, DO, DO, DO, D2,D2,F0,F0, 0C24 

380 DATA DA.FQ. DA. F0, 70. F0. 70,F0,D0. F0, C0, )0.C3,h5.F0, F0, 045 

390 DATA D8,D8,CC, DB, 30, 0, /0, 70, DU, DO, DU, DU, D2, DZ, FU, FU, uByt 
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400 DATA DB, D8, D8, D8, 30, 70, 70, 70, DO, DO, DO, DO, D2, D2, FO, FO, OBA4 
410 DATA CC, DB, CC, DB, 70, 70, 70, 70, DO, DO, CO, DO, C3, D2, F0, FO, UBAD 
420 DATA CC, DB, CC, D8, 70, 70, 30, 70, DO, FO, DO, FO, D2, FO, FO, FO, OBEA 
430 DATA CC, DB, CC, D8, 70, 70, 70, 70,0, DO, CO, DO, C3, D2, FO, C3, 0880 
440 DATA CC, DB, CC, D6, 70, 70, 30, F0, DO, DO, DO, DO, D2, D2, FO, FO, 0COC 
450 DATA CC, DB, CC, DB, 70, FO, 30, 70, FO, DO, CO, DO, C3, D2, FO, FO, OCOD 
460 DATA CC, DB, CC, D8, 80, FO, BO, F0, E0, F0, E0, FO, E1, FO, FO, FO, ODD9 
470 DATA D8,D8, DB, D8, 70, 70, 70, 70,0, DO, CO, DO, C3, D2, FO, FO, OBCS 
480 DATA D8, DB, D8, DS, 70, 70, 70, 70, D0, DO, CO, DO, Et, FO, FO, FO, 0CO1 
490 DATA D8,D8, D8, D8, 70, 70, 70, 70, CO, DO, CO, DO, D2, D2, FO, FO, OBC4 
500 DATA D6,D6, D8, DB, 70, 70, BO, FO, DO, DO, DO, DO, D2, D2, FO, FO, OCA4 
510 DATA D8,D8, D8, DB, 70, 70, 30, 70,E0, F0, E0, F0, Et, FO, FO, FO, 0C31 
520 DATA CC,D8, CC, D8, FO, 70, 80, FO, DO, FO, CO, DO, C3, D2, FO, FO, ODOD 
530 DATA 00,00, 00, 00,00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
540 DATA 00,00, 00, 00, 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
550 DATA 00,00, 00, 00, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
560 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
570 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
580 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
590 DATA 00,00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
600 DATA 00,00, 00,00, 34,44, 43,30, 46, 46, SA, SA, SA, 5A, SA, 5A, 0393 
610 DATA 54,54, 5A, 54, 43,43, 41,41, E0, E0,F2, F2, 6F,8F,6F, 8F, 0850 
620 DATA 6F,6F,6F,6F,8F,8F,6F,6F, 6F, 6F, BF, 6F, 6F,6F,8F,8F, 08FO 
630 DATA 00,50,F0,00,00, F4, 29, A0, 50, BC, 43,52, 50, 96, 43, D2, 0699 
640 DATA 50,B4, 43,D2, 50, B4, 43, D2, F4, 29, 43, D2, FA, 29, 43, D2, 0896 
650 DATA 50,BC,E1,D2,50, FO, 43, D2,50, BC, 43, D2, 50, BC, 43, 52, 08D6 
660 DATA 00,F4, 29, A0, 00,50, FO, 00, 00, B4, A1, AO, 00, FO, FO, AO, 0772 
670 DATA 00, F0, A0, 00,50, 16,FB, 00, A1, 83, 7C, A0, E1,83,69, AO, 079B 
680 DATA Et,83, 78, A0,E1,83, 78, A0, E1, 83, 16,F8,E1,83, 16, F8, 09DC 
690 DATA Et, D2, 7C, A0,E1, 83, FO, AO, E1, 83, 7C, AO, A1, 83, 7C, AO, DAB3 
700 DATA 50,16,F8, 00,00, FO, A0, 00, 50, 52, 78, 00,50, FO, FO, 00, 0638 
710 DATA 00,F0,F0, 00,50, BC, 43, A0, F4, 29, C3, D2, F4, 83, C3, D2, 098D 
720 DATA F4,83,C3,D2,F4,F8,F4,D2, F4, 84,52, D2, F4, A1, D2, D2, 0CC3 
730 DATA F4,78,E1,D2,F4,29,C3,D2, F4, A1,D2,D2, F4, 78,E1, D2, 0C29 
740 DATA 50,BC, 43, A0, 00, FO, F0, 00, 50, 78, Ai, A0, 50, A0, 50, AO, 078 
750 DATA 00, F0, FO, 00,50, BC, 43, A0, F4, 29, C3, D2, F4, 29, C3, D2, 0933 
760 DATA F4,29,C3,D2,F4,29,C3,D2,F4, 29, C3, D2, F4, 29, C3, D2, OACB 
770 DATA F4,29,C3,D2,F4, 29,C3,D2, F4, 29, C3, D2, F4, 29, C3, D2, DACB 
780 DATA 50, BC, 43, A0, 00, F0, F0, 00, 50, 78, A1, 0, 50, A0, 50, AO, O7BB 
790 DATA CB, C0, C8, C4, 90,90, 18, 90, 30, 30, 18,30, 30, 30, BO, 30, 06C4 
800 DATA 98,80, 8C,98,64, 70, 70,64, CC, D8, D, CC, CC, E4, CC, E4, OA9B 
810 DATA BC, A4,8C, BC, 4C, E4, 4C, 4C, OC, OC, OC, OC, OC, OC, DC, 0C, DA70 
820 DATA 58,58,58,58, A4, A4, A4, A4, FO, FO, FO, FO, DB, FO, F0, Eâ, OBAC 
830 DATA F0,F0, F0, FO, 30,90, A4,98, 30, 60,E4, 30, 30, C1, BO, 98, 0999 
840 DATA F0, FO, F0, F0, A4,96, 30,90, E4, 30, 30, 60, BO, 98, 30, C1, 0999 
850 DATA F0, FO, FO, FO, 30, 90, A4,98, 30, 60, E4, 30, 30, C1, BO, 98, 0999 
860 DATA F0, F0, FO, FO, A4,98, 30, 90, E4, 30, 30,60, BO, 98, 30, C1, 0999 
870 DATA 00,F0, F0, 00,50, 4C, OC, AO, 50, 98, 8C, A0, 50, 30, BC, AO, 06EB 
880 DATA 50,90, 8C, A0, E0,F0,64,58,F0,0C,E4,58, A4, 8C, BO, 8C, 093C 
890 DATA E4,64,E0,64,E4, 30, E0, 70, B0, 60, 70, FO, BO, CO, A4, 58, 09CC 
900 DATA E0,90, 4C,8C, E0, 90,98, 64,50, CO, 60, 70, 00, FO, FO, AO, 0914 
910 DATA F1,D1,D1,4F,8F,E5, 54,85, F2, 8F, A7, 5A, DB, F0, DB, ES, 0B42 
920 DATA A5,A5,A7,F1,E0,4F,E5,4F,5B,F1,51,F1,A5,E5, A5, Di, OAD3 
930 DATA E5,5A,F1,A7,58,68F,4F,F1,A5, F0, A7,D1, DO, A5, DO, 54, OAAD 
940 DATA DB, 4F,A7,6F,A7,A5,E7,E5, 44, 4F,5A,5B,F1,F1,E7, F2, AG! 
950 DATA 5A,F0,F0,A5,A4,CC, CC, 58, E4, 30, 30, DB, BO, CO, CO, 70, DA2F 
960 DATA B0,C1, C2, 70, E0, C3, C3, DO, E0, 64, C3, F0, E0, C3, 8C, DO, OBCF 





970 DATA E0,92,C3, DO, E0, C3, C3, DO, BO, C1, C2, 70, BO, CO, CO, 70, 0B7E 

980 DATA E4, 30, 30,D8, A4, CC, CC, 58, A4, 0C, 0C, 58, SA, F0, FO, A5, 0BA3 

990 DATA 5A,F0,5A,F0,F0, C5, E0, FO, E0, FO, 4F,F0,E5, F1, 5A, DO, 0C28 

1000 DATA A5,F0,F2, DA, F1,E5,E5, F0, FO, A7, A5,E0, DO, F1,F1,E5, ODBF 
1010 DATA DA, DO, DA, AS, 5A, DA, OF, F1, F0, DA, F2, DA, A5, E0, FO, 5A, 0BC2 
1020 DATA F1,E5,D0,F2,F0,0F, A5, FO, FO, F2,5B,F0,F0,F1,F0,F1,0D1B 
1030 DATA F0,F0, F0, FO0,E1,03, 16, 78,41, 16, 3C, 78, A1, F0, FO, FO, DAUE 
1040 DATA A1,FA,FC, FR, A1. Fa. 3C, 78, Ra. F4. 29.52, A1.F4, 29. DD, QAR® 
1050 DATA B4,F4, 29, D2, A1,F4, 29, D2,Ba, Fa, 29, D2, Ba, F4, 29, D2, DAY 
1060 DATA B4,F4, 29, D2, B4,F4, 29, D2, B4,F4, 29, D2, FO, FO, FO, FO, OBAS 
1070 DATA F4,BC, 3C, 29, F4, 3C, 3C, 29, FO, BC, 3C, 03, FO, BC, 3C, 43, 07C0 
1080 DATA F0, B4, 29, 43,F0,F4, 29, 43, F0, FO, 03, C3, FO, FO, 03, C3, OJAC 
1090 DATA F0,F0,03,C3,F0,F0,03,C3, F0, F4, 29, 43, F0, B4, 29, 43, OJAC 
1100 DATA FO, BC, 3C, 43,F0, BC, 3C, 03, F4, 3C, 3C, 29, F4, BC, 3, 29, 07CO 
1110 DATA F0,F0, FC, FC, B4, 0, 3C, 29, B4, 30, 3C, 29, Ba, 3C, 3C, 29, 07D7 
1120 DATA B4,F0, FC, 29, B4, B4, 29, 29, B4, B4, 29, 29, BC, BC, 29, 29, 0807 
1130 DATA BC, BC, 69, 29, BC, BC, 69, 29, BC, BC, 69, 29, BC, 03, C3, 69, 0809 
1140 DATA BC, 3C, 3C, 69, BC, 3C, 3C, 69, BC, 3C, 3C, 69, 03, 03, 43, C3, 05E3 
1150 DATA F0,E4,98, FO, A4, CC, 30, C1, A4, CC, 60,C3, DB, 4C, 98, DO, OADC 
1160 DATA 98,F0,F0,E4, 30, C1, A4, CC, 60, C3, A4, CC, 98, DO, DB, 4C, OADC 
1170 DATA F0,E4,98, F0, A4, CC, 30, C1, A4, CC, 60, C3, DB, 4C, 98, DO, OADC 
1180 DATA 98,F0,F0,E4, 30,C1, A4, CC, 60,C3, A4, CC, 98, DO, DB, 4C, OADC 
1190 DATA F0,F0, FO, FO, FC, FC, FC, FC, 3C, 3C, 3C, 3C, 03, 03, 03, 03, OBAC 
1200 DATA F0,F0,F0,FO, FC, FC, FC, FC, 3C, 3C, 3C, 3, 03, 03, 03, 03, OBAC 
1210 DATA FO,FO,FO, FO, FC, FC, FC, FC, 3C, 3C, 3C, 3C, 03, 03, 03, 03, OBAC 
1220 DATA F0,F0,F0, FO, FC, FC, FC, FC, 3C, 3C, 3C, 3C, 03, 03, 03, 03, OBAC 
1230 DATA F4,29,F4, 29,F4,29,F4,29,F4,29,F4, 29, F4, 29, F4, 29, OBEB 
1240 DATA F4,29,F4, 29,F4,29,F4,29,F4, 29, F4, 29, F4, 29, F4, 29, OBEB 
1250 DATA F4,29,F4, 29,F4,29,F4, 29, F4, 29,F4, 29, F4, 29,F4, 29, OBEB 
1260 DATA F4,29,F4, 29,F4,29,Fa,29,F4,29,F4,29,F4, 29, F4, 29, OBEB 
1270 DATA 50,F0, FO, A0, F4,FC, FC, FB,B4, TC, BC, 78, A1, 3C, 3C, 52, 0AB3 
1280 DATA A1,16, 29, 52,E1,03,03,D2,E1,83, 43, D2,E1, C3, 43, D2,081D 
1290 DATA E1,83,C3, D2,E1,83, 43, D2,E1, 03, 03, D2, A1, 16, 29,52, 0B5D 
1300 DATA A1, 30, 3C, 52, B4, 7C, BC, 78, F4, FC, FC, F8, 50, FO, FO, AO, 0AB3 
1310 DATA C3,C3,C3, D2, 92,64, 8C, 70,92, CC, 18, 70, C6, D, BO, 58, 0999 
1320 DATA C6,F0, F0, 70,86, F0, FO, 70,92, 70, BO, 70, 92, 58, BO, 70, 0A18 
1330 DATA 86, 70, B0, DO, 92, FO, FO, D2, 92, FO, F0, 70,92, FO, FO, 70, 0B7E 
1340 DATA 92,F0, F0, 70,C2,92, 30, D2,C3, 30,61, 70, D£, FO, F0, FÜ, OAJE 
1350 DATA F0, F0, FO, F0,B4,3C, 3C, 78,B4, 03, 03, 78, B4, 43,83, 78, 0888 
1360 DATA BA, 43, A9, 78,B4,43,FC, 78,FC, FC, BC, F8, BC, 3, 30, 7C, OGDF 
1370 DATA BC, 30, 3C, 7C, FC, FC, BC, FB, B4, 43, FC, 78,B4, 43, A9, 78, OQDF 
1380 DATA Ba, 43,83, 78,B4,03, 03, 78,B4, 3C, C, 78, F0, FO, F0, FO, 0888 
1390 DATA F0,F0, F0, F0, B4,3C, 3C, 78,B4, 03, 03, 78, B4, 43,83, 78, 0888 
1400 DATA B4,56,83, 78,B4,FC, 83, 78,F4, 7C, FC, FC, BC, 3C, 3C, 7C, 09C8 
1410 DATA BC, 30, 30, 7C, F4, 7C, FC, FC, B4, FC, 83, 78, B4, 56, 83, 78, 09CB 
1420 DATA B4,43,83, 78,B4,03, 03, 78,B4, 3€, 3C, 78, F0, F0, F0, FO, 0888 
1430 DATA FO,F4,F8, F0, B4,BC, 7C, 78,F4,3C, 3C,FB, BC, 3, 3C, 7C, OAâ4 
1440 DATA FC, BC, 7C, FC, A1,BC, 7C, 52, E1, BC, 7C, D6, E9, BC, 7C, D6, 0B41 
1450 DATA E9, BC, 7C, D6, E1, BC, 7C, D6, A1, BC, 7C, 52, A1, BC, 7C, 52, OA3C 
1460 DATA A1,BC, 70, 52,B4,BC, 7C, 78, B4, BC, 7C, 78, F0, FC, FC, F0, OACB 
1470 DATA FO0,FC, FC, F0, B4, BC, 7C, 78,4, BC, 7C, 78, A1, BC, 7C, 52, OACB 
1480 DATA A1, BC, 7C, 52, A1,BC, 7C, 52,E1, BC, 7C,D6, E9, BC, 7C, D6, OA3C 
1490 DATA E9, BC, 7C, D6,E1,BC, 7C, D6, A1, BC, 7C, 52, FC, BC, 7C, FC, OB4i 
1500 DATA BC, 3C, 30, 7C,F4,3C, 30, F8, B4, BC, 7C, 78, F0, F4,FB, FO, OA4A 
1510 DATA 00,00, 00, 00, 80, 80, 00, 00,00, A0, 00, 00, 50, 50, 00, 00, 0240 
1520 DATA 80,50, A0, 00, 00,E1,52, 00,50, 83, 7C, 40, 50, 96, F8, A0, 0710 
1530 DATA E1,16,F8,F0,E1,16,F8,F0,E1, 7C, FO, FO, A1, 7C, FO, FO, OBFB 
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1540 DATA 50,F8,F0, A0, 50, F0, FO, A0, 00, FO, FO, 00, 00, 50, AO, 00, 0878 
1550 DATA 00,00,00, 00, 00, 00, 00, 00, 00, FO, FO, 00, 50, FC, FC, AD, D4CB 
1560 DATA 50, 7C,BC, A0, 50, 16, 29, A0, 50,83, 43, A0, 50, C3, 43, AO, 0703 
1570 DATA 50,83,C3, A0, 50,83, 43, A0, 50, 16, 29, A0, 50, 7C, BC, AO, 0743 
1580 DATA 50,FC,FC, A0, 00, F0, F0, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0ACB 
1580 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, O0, OO, 0000 
1600 DATA 00,50,A0,00, 00, F4, 78, 00,00, B4,52, 00, 00, A1, D2, 00, 04D5 
1610 DATA 00,E1,52, 00,00, A1, 78, 00,00, B4, F8, 00, 00, 50, A0, 00, 04EB 
1620 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
1630 DATA 00,CC, 30, 00, 44, CO, CO, 80, CB, 82, 10, C0, CB, 00, 00, 60, 0682 
1640 DATA 60,00,00, 60,60, 80, 10, C1, 10,90, 60, 82, 00, 60, C1, 00, 0514 
1650 DATA 00, 10,80, 00, 00, 10, 80, 00, 00, 10, 80, 00, 00, 10, 90, 20, 0270 
1660 DATA 00, 44,C0, 80, 00, 44, 80, 00, 00, 44,90, 64, 00, 44, C0, 90, 0514 
1670 DATA C3,83,03,03,96,3C, 4, 7C, 96, &C, 3, 7C, 96, F0, FC, 7C,075E 
1680 DATA 96,F5,AB, 7C,96,F5, AB, 7C, 16,F5, AB, 7C, 16,F5, AB, 7C, 09CB 
1690 DATA 16,FD, AB, 78, 16, FD, EB, 78, 16, FD, EB, 78, 16, FD,EB, 78, 0998 
1700 DATA 16.03.03. 78,16. 3C. 0, 78. 16. 3€. 2C. 78. FC. FC. FA, F0, 0740 
1710 DATA F0,F0,F0, F0, CC, Ba, A4, 4C, LU, JB, A4, LU, LL, BU, É4, 4U, UB1U 
1720 DATA FO,FO,F0,FO, A4, 4C,CC, 64, A4, CC, CC, 9B,Ea, 4C, CC, 60, 0B10 
1730 DATA F0,F0,F0,FO,CC, 64, A4, 4C, CC, 98, A4, CC, CC, 60, E4, àC, 0B10 
1740 DATA F0,F0,FO, FO, A4, aC, CC, 64, A4, CC, CC, 98, E4, 4C, CC, 60, 0B10 
1750 DATA 70,F0,E4, FO, A4, 4C, DB, 0C, A4, CC, 70, 4C, A4, 98, DO, 18, 0958 
1760 DATA A4,98,D0, FO, A4, aC, 70, 4C, DO, FO, A4,98, 70, E4, A4,98, OA 34 
1770 DATA D8,58, A4, 98, A4, CC, 70, 4C, A4, 98, CO, FO, A4, CC, 70, 4C, 09B0 
1780 DATA DO, 4C, A4,98, 60, FO, A4, 98, DB, 4C, 4,98, DB, aC, 70, AC, 0924 
1790 DATA F0,F3,5A,F0,F3,0F,DB,F3,0F,CF, OF, OF, CF, FO, F0, BF, 0A37 
1800 DATA F0,F3,F3,E5,F3,0F,0F,A7,0F,8F, BF, OF, 4F, 4F, 4F,4F,07EB 
1810 DATA CF,F0,ES,CF,D0,F3, F2, CA,F1,0F,5B, 0, A7, 8F, 8F, F2, OBE4 
1820 DATA 4F,4F,4F,5B,8F,CF,CF,FO,CF, CA, FO, F3, C0, FO, F3, 0F, 0A93 
1830 DATA DA,E5,E5, E0,E0,F1,F0,FO,F1, DA, DB, DB, F0, 5B, 4A, FO, 0D3B 
1840 DATA 5B,E5,F0,E5,E0, FO, 4A, 5A,5A, 4F,F0,5B,F1,D0,F0,F1,0B1F 
1850 DATA DB,5B, DB, 54, 5A, DO, SA, F1, 4A,5B, DA, DA, F0, E0,F1,5B, 0A55 
1860 DATA F1,DB, DA, 5A,D0, DO, SA, 5A,F1, FO, CF, F1,F0, 0, F1, DO, 0C86 
1870 DATA FO,FC, 3C, 43,F4, BC, 29, 43, F0, FC, 3C, 43,F4, BC, 29, 43, 090E 
1880 DATA FO, FC, 3C, 43,F4, BC, 29, 43, FO, FC, 3C, 43, F4, BC, 29, 43, 090E 
1890 DATA FO,FC, 3C, 43,F4, BC, 29, 43, FO, FC, 3C, 43, F4, BC, 29, 43, O90E 
1900 DATA FO,FC, 30, 43,F4,BC, 29, 43, F0, FC, 3C, 43,F4, BC, 29, 43, 090E 
1910 DATA 3C,3C, 3C, 78, 7C, FC, FC,FB, 7C, FC, FC, FB, TC, FC, FC, FB, 0B70 
1920 DATA 7C,FC,FC, F8, 7C, FC, FC, F8, 7C, FC, FC, F6, 7C, FC, FC, F8, ODBO 
1930 DATA 7C,FC,FC, F8, 7C, FC, FC,FB, 7C, FC, FC, F8, 7C, FC, FC, FB, ODBO 
1940 DATA 7C,FC,FC, F8, 7C,FC, FC, F8, 7C, FC, FC, F8, 76, F0, F0, FO, ODBC 
1950 DATA 98,CC, CC, 4C, 98, CC, CC, 4C, 4C, 64, BC, 98, 4C, 64, BC, 98, OBAO 
1960 DATA 8C,98, 4C,64,8C,98,4C,64,CC, BC, 64, CC, CC, 4C, 98, CC, OBAC 
1970 DATA CC, 4C, 98, CC, CC, BC, 64, CC, BC, 98, 4C, 64, BC, 98, 4C, 64, OBAC 
1980 DATA 4C,64,8C, 98, 4C,64,8C, 98,98, CC, CC, 4C, 98, CC, CC, 4C, OBAO 
1990 DATA FO, F0, FO, FO,F4, BC, BC, 3C,F4, 7C, 3C, 3C, F4, BC, BC, 3C, OAFB 
2000 DATA F4,F0,FO,B4,F4, 41,03, Ba,F4, A1, 43,B4,F4, A1,E1,B4, OBBA 
2010 DATA F4,A1,E1,B4,F4,A1,E1,B4,F4, A1,C3,84,F4,E1, C3, B4, OCAC 
2020 DATA F4,F0, FO, B4,F4,BC, BC, 3C,F4, 7C, 3C, 3C, F4, BC, BC, 3C, OACO 
2030 DATA A0, 00,00, 50, 50,50, A0, 40,00, F1, 54, 00,50, A7, OF, AO, 05C1 
2040 DATA 50,F1,54, A0, A1,52,A1,52,E1,52,E1,52,E1,F0,F0, D2, OAÎA 
2050 DATA F0,F0, FO, FO, FO, FO, F0, F0, F0, D2, Et, F0, 50, F1, 5A, AO, ODAE 
2060 DATA 50,A7,0F, A0, 00,F1,5A,00,00, 50, AO, 00, 00, 00, 00, 00, O3E1 
2070 DATA 50,F0, FO, AO, A4, 4C, 60, D2, A4, 98, C1, D2, A4, 98, C1, D2, DA9O 
2080 DATA FO, FO, FO, FO, F0,D0, DO, DO, FO, BO, DO, FO, A4, 98, C1, D2, OD4F 
2090 DATA A4,D8,E0, D2, A4,98, 90, DO, A4, F0, FO, D2, A4, 98, C1, D2, OBEF 
2100 DATA A4,D8,E1,D2, 50, 4C,60, A0, 00, A4, DB, 00, 00, 50, A0, 00, 0737 





2110 DATA 00,F0, FO, 00,50,0C, OC, AO, A4, 0C, 0C, 58, A4, 0C, 0C, 58, 0510 
2120 DATA FO, 0C,0C, FO, BO, A4, 58, 70, E0, 70, BO, DO, FO, FO, FO, FO, OAA4 
2130 DATA A4,58, 70,58, A4, 80, DO, 58, F0, FO, FO, FO, E0, 70, BO, DO, OADO 
2140 DATA F0,90,60, FO, A4, F0, F0, 58, 50, 0C, 0C, A0, 00, FO, FO, 00, 0894 
2150 DATA A0, 00, 00, 50, AO, 00, 00, 50, A0, 00, 00, 50, 50, 50, AO, AO, 04B0 
2160 DATA 00,B4,F0, 00,00, A1, F0, 00,00, Et, F0, 00,50, A1, FO, AO, 0787 
2170 DATA A0,B4, F0, 50,00, B4, F0, 00,00, F4, FO, 00,00, F4, FO, 00, 0800 
2180 DATA 50,50, AO, AO, AO, 00, 00, 50, 40, 00, 00,50, A0, 00, 00, 50, O4B0 
2190 DATA 00,00, FO, FO, FO, FO, 00, 00, 00, 50, 4C, 98, 64, BC, AO, 00, 0684 
2200 DATA 00, 4,98, 60,90,64,58, 00, 00, FO, A4, 30,90, FO, F0,00,071C 
2210 DATA 50, 4C, 60,84, 48,90, BC, A0, 00, FO, 18, CC, CC, 70, FO, 00, 0784 
2220 DATA 50, 4C,60, 30, 30,90, BC, A0, A4, 98, CO, Ca, CC, CO, 64,58, 0820 
2230 DATA FO,A4,98, 30,C0,64,58,F0,00, A4, 98, 84, 48, 64,58, 00, 078C 
2240 DATA 00,50,E4, 30, 30, D8, A0, 00,00, 50, E4, 60, 90, DB, AO, 00, 06AB 
2250 DATA 00,A4,98,90,C0,64, 58, 00, 00, FO, 4C, 24, 30, 8C, FO, 00, 0654 
2260 DATA 00,A4,98,90, 18,64,58, 00, 00, 50, F0, FO, FO, FO, AO, 00, 0750 
2270 DATA F0,F0, F0, 00,00, F0, F0, F0, F0, BC, 78, 00,00, B4, 7C, FO, 09E4 
2280 DATA F4,29,52, 00,00, A1,16,F8,B4, 43,52, FO, FO, A1, 83, 78,07E3 
2290 DATA A1,C3,D2, FC, FC,E1, C3, 52, E1,E9, D2, 3C, 3C, E1, D6, D2, OBC1 
2300 DATA F4, 7C,D2,03,03, E1, BC, F8,B4,B4,F8,C3,C3, F4, 78, 78, OAA7 
2310 DATA A,F0, 78,00, 00,84, F0, 52,84, 43, 78, F0, FO, A1, 83, 78, OBEA 
2320 DATA B4,43,52,FC,FC,E1,83, 78,F4, 29, D2, 3C, 30, E1, 16, F8, 0973 
2330 DATA FO,BC, 52, 03,03, A1, 7C,F0,A1,F4, 78,C3,C3,B4,FB, 52, 09A2 
2340 DATA B4, 43,52, 00,00, A1,83, 78, F0, F0, FO, 00,00, F0, FO, FO, 0885 
2350 DATA 00,00, 00, 00, 00,50, A0, 00, 00, A4, DB, 00, 50, 4C, CC, AO, 0474 
2360 DATA 50, 40,20, AN, A4, 98. AN, 70, A4, OR, AN, 70, A4, 98, 60, D, 070 
2370 DATA A4,98, 90, 7€ ,A4,98, 30, DB, A4, CC, 64,58, 50, 4C, BC, AU, UB 74 
2380 DATA 50,0C,0C, AO, 00, 4,58, 00, 00, 50, A0, 00, 00, 00, 00, 00, 02F4 
2390 DATA 00,88, 00, 00, 00, 20, 00, 00. 00. 20. 40. 00, 80. 00. 00, 00, 5190 
2400 DATA 88, 20, 00, 00, 20, 00, 00, BB, 44, 20, 20, 44, 20, 00, 80, BB, 0340 
2410 DATA 44,64,00,44,64,00,00,64, 10,90, 00, 10,90, 00, 44,64, 039C 
2420 DATA 98,90, 00, 10,90,00, 44, 64,98, 10, 88,98, 10,88, 10, 80, 0560 
2430 DATA 60, 10,88, 98, 10, 88, 10, 80,60, 40, 20, 60, 40, 20, 98, 00, D4DO 
2440 DATA 20,40, 20,60, 40, 20,60, 00, 80, 40,64, 20, 00, 64,60, 00, 0348 
2450 DATA 80,00, 64, 20, 00,64, 20, 00, 00, 88, 90, 80, 20, 90, 80, 00, 0450 
2460 DATA 00, 00,90, 80, 00,90, 00, 88, 40, 00, 10, 00, 00, 10, 00, 00, 0288 
2470 DATA 00,00, 00, F0, F0, 00,00, 00, 00, 00, 50, 83, 3C, AO, 00, 00, 038F 
2480 DATA 00,00,50,D6, FC, AO, 00, 00, B4, 3C, 78,56, 3C,E1, 83,52, 0672 
2490 DATA FO,F0,F0,56,29,F0, F0, F0,F0,F8,F8,56, 29, FO, FB,FB, OCSE 
2500 DATA F4, FC, F8, 7C, 29, F4, FC, F8, F4, 7C, 78, 7C, 29, F4, 7C, 78, OAEA 
2510 DATA B4,3C, 78, 7C, 29,B4, 3C, 78, B4, 16, 52, 7C, 29, B4, 16,52, 0652 
2520 DATA A1,03,52, 7C, 29, A1,03, 52, 1,83, D2, 7C, 29, A1, 83, D2, 0722 
2530 DATA Ei,C3,D2, 7C,69,E1,C3, D2, 00, 00, 50, 7C, 69, AO, 00, 00, 07AG 
2540 DATA 00, 00,50, 7C, 69, 0,00, 00, 00, 00, 00, FO, FO, 00, 00, 00, 0385 
2550 DATA FO,FO, FO, FO, FO, FO, F0, FO, A4, 0C, OC, OC, 0C, OC, OC, 58, 08C4 
2560 DATA A4, CC, CC, CC, CC, CC, CC, 58, A4, 98, 30, 30, 30, 30,64, 58, 087C 
2570 DATA A4,98, C0, CO, CO, CO, 64, 58, A4, 98, C1,C3, C3, C2,64,58, 09F9 
2580 DATA A4,98,C1,03,03,C2,64, 58, 44,98, C1, 16, 29, C2,64,58, 073B 
2590 DATA A4.98,C1,16,29,C2,64, 58, A4,98, C1,03,03,C2,64,58,073B 
2600 DATA A4,98,C1,C3,C3,C2, 64,58, A4,98, CO, CO, CO, CO, 64,58, 09F9 
2610 DATA A4,9B, 30, 30, 30, 30,64, 58, A4, CC, CC, CC, CC, CC, CC, 58, B7C 
2620 DATA A4,0C,0C,0C,0C,0C, 0C, 58, F0, FO, F0, FO, FO, FO, FO, FO, 08C4 
2630 DATA 00,00, 50, FO, FO, A0, 00, 00, 00, 00, A4, 98, 60, DO, 00, 00, 053C 
2640 DATA 90,50, 4C,60, C1, C2, AO, 00, 00, 50, 4C, 60, C3, C3, A0, 00, 0641 
2650 DATA 00, A4,98, 30, C1,C3, D2, 00, 00, A4, CC, CC, C9, C3, D2, 00, 085C 
2660 DATA A0, A4,98, 30, 64, C9, D2, 50, AO, A4, CC, CC, 90, 30, D2, 50, 0919 
2670 DATA A0,F0,98, 30, CC, CO, F0, F0, FO, F0, 98, CO, 30,61. F0, FO, OBGD 
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2680 DATA F0,A4,B0,C0, CO, DO, 70, FO, A4, A4, DB, 90, C1, BO, DO, 58, OB3D 
2690 DATA E4,A4,98,E4, 70,98, 70,D8,B0,F0, BO,C4,64, 70,F0, 70, OA9C 
2700 DATA EO,A4,F0,C4,30,F0,D2, DO,E1,A4,98,C4,60, C3, D2, D2, OBA2 
2710 DATA E1,A4,98,C4,30,C1,D2,D2,E1,A4,98,64,64,60, D2,D2, 0A5F 
2720 DATA 50, A4,D8,90, CO, BO, DO, AO, 50, A4, D8, 40, 00, BO, DO, AO, 0968 
2730 DATA 00,A4,98, 0,50, C6, 70,00, 00, A4, 98, D0,E1, C6, 70,00,0785 
2740 DATA 00,44,98,90,C1,C6, 70,00, 00, A4,98,C1,60, C2, 70,00, 0752 
2750 DATA 00,44,F0,C1,C3,F0, DO, 00,00, A4,98,F0,F0,C3,D0, 00, 0987 
2760 DATA 00,A4,98,C1,C3,C3,D2, 00,00, 50, 4C, 70, B0, C1, AO, 00, 0772 
2770 DATA 00,50, 4C,60,C3,C3, A0, 00, 00, 00, A4,98, C0, D2, 00, 00, 05F0 
2780 DATA 00,00,50, 4C, 30, AO, 00, 00, 00, 00, 00, FO, FO, 00, 00, 00, 034€ 
2790 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 29, 00, 00, 00, 0000 
2800 DATA 00,00, 00, 00, 00, 00, 00, 00,00, 00, 00, F0, F0, 00, 00, 00, 01E0 
2810 DATA 00,00,F0,16,3C, F0, 00,00, 00, 50, 83, 78, F0, 3C, A0, 00, 0549 
2820 DATA 00,E1,52,F0,F0,F0, 78,00,00,E1,F0,F0,FC, FO, F0, 00, 0A18 
2830 DATA 50,52,F0,FC.FC,FC, FO, A0,50,52,F4,FC,3C, 3C.FB, AO, ABB 
2840 DATA 50, 78,F4,BC, 3C,3C, 7C, AO, B4,F0,F4,BC, 3C, 03, 7C,F8,0913 
2850 DATA F0,F0,F4,3C,29,52,F0,F0,F0,F0,F4,3C,03,52,F0,F0, OABO 
2860 DATA F0,B0,D0, 3C,03,E0, 70,F0,B4, F0, 70,B4,52, BO, A1, 78, 09D2 
2870 DATA B4,F0,FC, 78,43,C3,83,78,B4,F0,FC, 78,03, C3,03, 78, 0972 
2880 DATA B4,F0,FC,3C,03,03, 16, 78,B4,F0,FC, 3C, 29,03, 16,F8,0786 
2890 DATA B4,F0,FC, 3C.3C,03,B4,F8, 50, 78, F0, BC, 3C, FO, 3C, A0, 0943 
2900 DATA 50,78,F4,F0,F0,3C, 7C, A0, 50, 78,F4,FC, 3C, 3C, FC, A0, 09C0 
2910 DATA 00,B4,F0,FC, BC, 7C,F8,00,00,B4, 78,F4,FC,FC,F 8,00, 09E0 
2920 DATA 00,50,3C,F0,F0,FC, A0, 00,00, 00, F0, 3C, 3C, FO, 00, 00, 0660 
2930 DATA 00,00, 00,F0,F0, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,00, 01E0 
2940 DATA 00,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
2950 DATA 50,F0,F0,F0,F0,F0,F0,A0,E1,16,E1,16,E1,16,E1,52, OAAB 
7360 DATA A1,3C,A1,3C, A1,3C, A1, 78,B4, 7C, B4, 7C,B4, 7C,B4,F8, OBEC 
4970 DATA F4,F0,F0,F0,F0,F0,F0,FO0,F0,E1,16, 78,E1, 16, 78,D2, 0C24 
2980 DATA Ai,A1,3C,FB,A1,3C, 78,52,B4,B4, 7C,E1,52,3C,F8, 78, 08E0 
2990 DATA F4,F0,F0,A1,78,F0,F0,FB,F0, BO, DO, B4, 78,E0, 70,F0,OCA1 
3000 DATA Ei,F0,F0,B4, 78,F0,F0, 78,E1,16,3C,B4,F8, C3, 16, 78,0A75 
3010 DATA A1.3C.3C.B4,F8,83,3C, 78, A1,3C, 3C.F0,F0, 16.30, 78,07BF 
3020 DATA R4.(,7C.F1,57,4C.3C.FA.F0,3C.FA.03, 7C.R4. 7C. F0, 08D? 
3030 DATA E1,Fa,A1,B4, 78,52,F8,D2,E1,F0,B4,B4, +4, 8, FU, DZ, UC2ÿ 
3040 DATA Ai,E1,F0,F0,F0,F0,D2,52,A1,E1,E1,52,52,52,D2,52,0AE3 
3050 DATA B4,A1,A1, 78,78, 78,52, 78,B4,A1,B4,F8,FB,F8,52, 78,09E3 
3060 DATA B4,B4,F0,F0,F0,F0, 78, 78,B4,B4,E1,16,3C,F8, 78, 78, OA9B 
3070 DATA F4,B4,F0,F0,F0,F0,78,F8,F4,B4,E1,16,3C, 78, 78,F8, 0B9B 
3080 DATA 50,B4,41,3C, 3C.F8, 78, A0,50,F4,F0,F0,F0,F0,F8, AO, OAC9 
3090 DATA 00,F4,E1,83, 16, 78,FB,00,00,50,E1,16,3C, F8, AO, 00, 06F9 
3100 DATA 00,00, A1,3C. 7C,F8, 00, 00,00, 00, 50, F0, FO, A0, 00, 00, 0521 
3110 DATA 00,00,F0,F0,F0,F0,00,00,00,50,F0,F0,F0, F0, A0, 00, 0870 
3120 DATA 00,F0,F0,F0,F0,F0,F0, 00,50, F0,F0,F0,F0, FO, FO, AO, 0C30 
3130 DATA 50,F0,F0,F0,F0,F0, F0, A0,50,F0,F0,FO, A4,F0,F0, AO, OCD4 
3140 DATA F0,F0,FO,FO, A4,F0,F0,F0,F0, FO, FO, A4, F0, F0, F0,F0, 0E68 
3150 DATA F0,44,58,A4,F0,A4,58,F0,F0, 4C, BC, 4C, FO, 4C, BC, F0, 0A38 
3160 DATA A4,D8,E4,4C, A4, D8,E4,58, A4,98, 70,D8,E4, B0,64,58, 0438 
3170 DATA A4,B0,90,F0,F0,60, 70,58,F0,F0,F0,A4,F0,F0,F0,F0,0C20 
3180 DATA F0,F0,F0,4C,58,F0,F0,F0,F0,F0, FO, 4C,58, FO, F0, A4, 0C3C 
3190 DATA 58,F0,F0, A4,58,F0,F0, A4,58, F0, FO, A4,F0, FO, FO, A4, 0CO8 
3200 DATA 58,F0,A4,F0,F0,A4,F0, A4, A4, FO, A4,F0, F0, A4,F0,58,0C0B 
3210 DATA F0,FO,A4,F0, A4, A4,F0,F0,F0,F0,58,F0, A4, F0,58,F0, OCAO 
3220 DATA F0,F0,58,58,A4,F0,58,F0,F0,F0,58,58, A4,F0,58,F0, OADB 
3230 DATA F0,F0,F0,0C, A4,F0, A4,F0,F0,F0, F0, 0C, A4, F0, A4,F0, OCOB 
3240 DATA 50,F0,F0,0C,F0,FO, A4, 0,50, F0, F0, A4,F0,FO,FO, AO, OBA4 





3250 DATA 00,F0, F0, A4,F0, F0, FO, 00, 00,50, F0, A4, F0, FO, AO, 00, 09BB 
3260 DATA 00,00,F0,FO0,FO, FO, 00, 00, 00, 00, 50, F0, FO, AO, 00, 00, 0690 
3270 DATA 00,00, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 


2 "= LISTING 3 = 
3 = TABLEAUX1 3 


10 MEMORY &7FFF:DEB-48000:LONG=&1300:L1G-100:GOSUB 20:SAVE"W2" 
,B,DEB, LONG 

20 FOR A=DEB TO DEB+LONG STEP 16:S0M-0:FOR B=0 TO 15:READ A$:P 
OKE A+B, VAL(&"+AS) :SOM=SOM+VAL ("RM +AS):NEXT:PRINT LIG:READ A$ 
:1F SOHOVAL("&®+A$) THEN PRINT"ERREUR EN LIGNE";LIG:END ELSE 

LIG=L1G+10:NEXT 

30 RETURN 

100 DATA 02,02, 02, 02,02, 02, 02, 02, 02, 02,02, 02, 02, 02,02, 02, 0020 

110 DATA 02,02, 02,02, 02, 18, 18,18, 18, 18,18, 18, 18,18, 18, 18,0112 

120 DATA 18,18, 18,02, 18, 18, 18,02, 02, 16, 18, 18, 18,18, 18,02, 0126 

130 DATA 18,18,18,16,18, 18, 18,02, 18, 17, 18,02, 02, 02, 02, 02, 00F9 

140 DATA 18,18, 18,02, 02, 02, 02, 02, 02, 02, 02,02, 18,17, 18,02, 0043 

150 DATA 02,18,18,18, 18, 18, 18, 18, 18, 0€, 0E, 0E, OE, 18, 18, 18, 0142 

160 DATA 18,17,18,02,02, 18, 18, 18, 18, 18,18, 18, 18,0E,0E,0E,0135 

170 DATA 0E, 18,18, 18, 18, 17, 18,02, 02, 02, 02,02, 18, 18, 18, 02, 00F1 

180 DATA 02,02, 02, 02,02, 02, 02, 02, 18, 17,18,02,02, 16,18, 18,001 

190 DATA 18,18,18,02, 18, 18,18, 16, 18, 18,18,02,18,17,18,02,013B 

200 DATA 02,18,18,18,18,18,18,18,18,18,18, 18, 18, 18, 18,02, 0154 

210 DATA 18,18, 18,02, 02, 02, 02,02, 02, 02, 02, 02, 02, 02, 02, 02, 0062 

220 DATA 02,02, 02,02, 02, 02, 02,02, 00, 00,00, 00, 00, 00, 00, 00, 0010 

230 DATA 00,00, 00, 00, 00, 00, 00, 00,00, 00, 00, 00, 03, 11, 7F, 04, 0097 

240 DATA 08,00, C0, 58, 04, 10, 21,3F, 04, 18,00, C0, 58, 04, 10, 39, 0315 

250 DATA 8F,03, 18, 18,C0,58, 04, 10,00, 00, 00, 00, 00, 06, 18,01, 020D 

260 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,0010 
270 DATA 01,01,01,01, 19, 19, 19, 19,0E, OE, 0E, 0E, 0E, OE, 0E, 0E, 00D8 

280 DATA 0E,0E,0E,0E, 17,17,01,01,19,19,19,01,01,01,01,01, 00B8 
290 DATA 01,01,01,01,01,01,01,01,01,17,01,01, 16, 19, 19, 19, 0083 

300 DATA 19,19,19,01,19,19,19,19,19,19,19, 19,01, 17,01,01,012E 
310 DATA 19,19,01,19, 19, 19, 19,01, 19, 16,19, 16,19, 16, 19,19,0157 

320 DATA 01,17,01,01,19, 19,01, 19,19, 19, 19,01, 19,19, 19,19,0116 
330 DATA 19,19,19,01,01,01,01,01,19, 19,01, 19, 16, 19, 19,01, 00ES 

340 DATA 19,16,19,16, 19, 16, 19,01, 19, 16,01,01,19,19,01,19,0124 
350 DATA 19,19, 19,01, 19,19, 19,19, 19, 19, 19,0E, 19, 19,01,01,013D 
360 DATA 19,16,01,19,19, 19, 19,19, 19, 16, 19,16, 19,16, 19,01,0154 
370 DATA 19,16,01,01,01,01,01,01,01,01,01,01,01,01,01,01,003D 
380 DATA 01,01,01,01,01,01,01,00,00, 00, 00, 00,00, 00, 00, 00, 0007 
300 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 03, 05, 87, 04, 04, 0097 
400 DATA 00,C0,58, 04, 10, 11, 7F,04,0C, 00, C0,58, 04, 10, 29,5F, 0380 
410 DATA 02,00, 0C, CO,58, 04, 10,00, 00, 00, 00, 00, 05, 19, 03, 03, 016A 
420 DATA 03,03, 03, 03,03, 03, 03,03, 03, 03, 03, 03, 03, 03, 03, 03, 0030 
430 DATA 03,03, 03, 19, 19, 19,19, 19, 19, 19, 19,03, 03, 19, 17, 19, 0120 
440 DATA 19,19, 16,19, 19,03,03, 19, 19, 19,19, 16, 19, 19, 19,03, 0148 
450 DATA 03,19, 19,16, 19, 19, 19, 19, 19, 03,03, 19, 19, 16, 19, 19, 0148 
460 DATA 19,19, 19,0E,0E, 19,19, 19, 19, 19,17, 19, 19,03, 03,03, 0136 





470 DATA 03,03,03,03, 03, 03, 0E, 03,03, 0E, 03, 03, 03, 03, 03, 03, 0046 
480 DATA 03,03, 03, 03,03, 03, 03,03, 03, 03, 0E, 03, 03, 0E, 03, 03, 0046 
490 DATA 03,03, 03, 03, 03,03, 03, 16, 19, 19, 19, 19, 19, 19, 19, 0E, 00EB 
500 DATA OE, 19,19, 19, 19, 16,19, 19, 19,03, 03, 19, 19, 19, 19, 16,0153 
510 DATA 19,19,19,03,03, 19, 19, 17, 19, 19, 19,03, 03, 03,03, 19, 0104 
520 DATA 19,16,19,19,19,17,19,03,03, 19, 16,19, 19, 19,19,0E, 0151 
530 DATA 17,03,03, 03, 03,03, 03, 03,03, 03, 03, 03, 03, 03, 03, 03, 0044 
540 DATA 03,03, 03, 03,03. 03, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0012 
550 DATA 00,00, 00, 00, 00, 00, 00, 00,00, 00, 02, 15, 7F, 04,0, 00, 006 
560 DATA 00,59,04, 10, 1B, 4F,01,08,00, 00,59, 04, 10, 00, 00, 00, 014D 
570 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00,05, 19,01,01,01, 0021 
580 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01, 0010 
590 DATA 01,01,18, 18,18, 18,18,18,01,18,18,18,01, 18, 18, 18,0124 
600 DATA 18,18,18,18,01,01,18,18,18,18,18,18,0€, 18,17, 18,0147 
610 DATA 0E,18,18,18,18,16,18,18,01,01,18, 18, 18, 18, 18, 18,0146 
620 DATA D. 1R. IR, 1A.O1.1R.1R,1R BR IR, RO. (A. 1f. 012? 
630 DATA 18,18,18,18,01,01,01,01,01,01,01,01,01, 18, 18, 18, OUB1 
640 DATA 01,01,0E,01,01, 18,18, 18,18,18,18,18,18,18,18,18,011A 
650 DATA 01,18,16,18,01,01,18,18,01,18,18,18, 18, 18, 18, 18, 0122 
660 DATA 18,18, 18, 18, 0€, 18, 18,18,01,01,17,18,01,01,01,01, 00EB 
670 DATA 01,01,01,18,18,18,18,18,01,18,18,18,01,01, 18, 18, 00F6 
680 DATA 0E,18,17,16,18,18,0E,18,18,18,18, 18,01, 16, 18, 18,0150 
690 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,0010 
700 DATA 01,01,01,01,01,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 0005 
710 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 02, 29, 8F, 01, 08, 00, CO, 0183 
720 DATA 58,04, 10,37,4F,01,08,00, 00, 59, 04, 10, 00,00, 00, 00, 0168 
730 DATA 00,00, 00,00, 00,00, 00,00, 00, 00, 03, 18, 03, 03,03, 03, 0027 
740 DATA 03,03,03,03,03, 03, 03,03, 03, 03,03, 03, 03, 03, 03, 03, 0030 
750 DATA 03,18, 18,18,16,18,18,18, 18, 03,03, 18, 18, 16, 18, 18,013D 
760 DATA 18,18,18,03,03,18,18,18, 18,18, 18, 18, 18,0E,0E, 18,0142 
770 DATA 18,18,18,18,18, 16, 18,03,03, 18,18, 18,18, 18, 18,18,0154 
780 DATA 18,03,03, 17,16, 18, 18,18, 18, 18, 18,03, 03, 16, 18, 18,0129 
790 DATA 18,18,18,18, 18,03, 03, 03,03, 03, 0E, 03, 03,03, 03, 03, 00A4 
800 DATA 03,03,0E, 03,03, 18, 18,18, 18,03, 03,03, 03, 03, 0€, 03, 009A 
810 DATA 03,03,03,03,03, 18, 18,18,03, 18, 18, 18, 18, 03,03, 18, 00D8 
820 DATA 17,18,18,18, 18,16, 18,03,03, 18, 18, 18,03, 18, 18, 18,013E 
830 DATA 18,0E,0E, 18, 18,18, 18,18, 18,18,18,03,03,17,18,18,0141 
840 DATA 03,18, 16,18,18,03,03,18,18,18,17,18,17,18, 18,03, 012A 
850 DATA 03,03,03, 03, 03,03, 03, 03,03, 03,03, 03, 03, 03, 03,03, 0030 
860 DATA 03,03,03, 03, 00, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 000€ 
870 DATA 00,00, 00,00, 00, 00, 00, 00,03, 31, 2F, 02, 08, 08, 00, 59, O0CE 
880 DATA 04,10,21,6F,03, 0C, 0C, 00,59, 04, 10,05, 87, 04,08, 00, 01C4 
890 DATA 00,59, 04, 10,00, 00, 00,00, 00,05, 18,01, 02, 02, 02, 02, 0093 
900 DATA 02,02, 02, 02,02, 02, 02, 02, 02, 02, 02,02, 02, 02, 01,02, 001F 
910 DATA 19,19, 19,19, 19, 19, 19,19, 19,19, 19, 19, 19, 19, 19, 19, 0190 
920 DATA 19,19,02,02, 19, 19,19, 19,19, 19,19, 19, 19, 19, 19, 19,0162 
930 DATA 19,19, 19,19, 19, 19,02, 02, 19, 18, 18, 18, 18, 19, 19, 18, 045D 
940 DATA 18,18, 18,19, 19, 18, 18,18, 18,19, 02,02, 19,18, 18, 17,0157 
950 DATA 18,19, 19,18, 18,18, 18,19, 19,18,17, 18, 18, 19,02, 02, 0158 
960 DATA 19,18, 18, 18, 18, 19,19,18,17,18,18,19, 19, 18, 18, 18, 0184 
970 DATA 18,19,02,02, 19, 18, 18,18, 18,19,19,18,18,18,18,19,0159 
980 DATA 19,18, 18, 18, 18, 19,02, 02, 19, 19,19, 19, 19, 19, 19, 19, 015E 
990 DATA 19,19, 19,19, 19, 19, 19, 19, 19, 19,02, 02, 19, 19, 19, 19, 0162 
1000 DATA 19,19, 19, 19,19, 19, 19,19, 19,19, 19,19, 19, 19,02,01,0161 
1010 DATA 02,02, 02, 02, 02, 02, 02, 02, 02, 02, 02, 02, 02, 02, 02, 02, 0020 
1020 DATA 02,02,01, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0005 
1030 DATA 00,00, 00, 00, 00, 00, 00, 03, 11,5F, 02, 09, 09, CO, 58, 04, 0143 
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1040 DATA 10,3D,5F, 02, 09,09, C0,58, 04, 10, 25,6F,01, 08, 00, 00, 0289 
1050 DATA 59,04, 10,00, 00,00, 00, 00, 03, 18,01,01,01,04, 01,01, 008E 
1060 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01, 01,01, 19, 0028 
1070 DATA 01,02, 02, 02, 02,02, 02, 02, 02, 02, 02, 02, 02, 02, 02, 02, 001F 
1080 DATA 02,01,01,19,01,01,01,01,01,01,01,01,01,01, 01,01, 0029 
1090 DATA 01,01,01,01,01,01,01, 19, 19, 19, 19,19,0E, 19, 19, 0E, 00D2 
1100 DATA 19,16,0E, 19,19, 19,17,19,19,01,01, 19, 19, 19, 19, 19,0150 
1110 DATA 0E, 19, 19,0E, 19, 19,0E, 19, 19,17,17,17,19,01,01, 19,0139 
1120 DATA 19,19, 19, 19,0E, 19, 19, 0E, 19, 19, 0€, 19, 19, 19, 17, 19,016D 
1130 DATA 19,01,01,19,01,01,01,01,01,01,01,01,01,01,01,01, 0040 
1140 DATA 01,01,01,01,01,01,01, 16,01, 02, 02,02, 02, 02, 02, 02, 002C 
1150 DATA 02,02, 02, 02, 02,02, 02, 02, 02, 01,01, 16,01, 02, 02, 02, 0031 
1160 DATA 02,02, 02, 02, 02, 02, 02, 02, 02, 02, 02,02,02, 01.01, 01, 001D 
1170 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01,01,01, 0010 
1180 DATA 01,01,00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0002 
1190 DATA 00,00, 00, 00, 00,00, 03, 1D, 4F, 02, 08,08, CO, 5A, 04, 10, O1AF 
1200 DATA 29,6F,01, 08,00, CO, 5A, 04, 10,35, 4F,02, 08, 08, CO, 5A, 037F 
1210 DATA 04, 10,00, 00, 00,00, 00,05,19,01,01,01,01,01,01,01,0039 
1220 DATA 01,01,01,01,03,03,03, 03,03, 03, 03, 03,03, 01, 18, 18, 0050 
1230 DATA 18,18, 18, 18, 18,18,18,01,19,19,19, 19,01, 19, 19, 19,0159 
1240 DATA 03,01, 18, 18,18, 18,18, 18,18, 18, 18,0E,0E, 19, 19, 19,0143 
1250 DATA 02,19,19,19,03,01, 18, 18, 18, 18,18,18,18, 18, 16,01,0128 
1260 DATA 19,19, 19, 19,02, 19, 19,19,03,01,01,0E,01,01,01,01, 00C8 
1270 DATA 0E,01,01,01,19,19, 19,19, 02, 19, 19, 19,03, 01, 18, 18, 00F6 
1280 DATA 1R,1R,01. 18, 48, 18, 16.01, 10, 19, 19, 10,09, 10, 10. 10. nt4f 
1290 DATA 03,01, 18, 18,18, 18,0E, 18,18, 18,18,01,19, 19,19, 19,0137 
1300 DATA 02,19, 19, 19,03,01,18,18,18,18,01,18, 18, 18,18,01,0113 
1310 DATA 19,19, 19, 19,02, 19,19, 19,03,01, 16,18, 18, 18,01, 16,012A 
1320 DATA 18,18, 18,01,19,17,17,19,01, 19,19, 19,03,01,01,01,00FB 
1330 DATA 01,01,01,01,01,01,01,01,03,03, 03, 03,03, 03, 03, 03, 0020 
1340 DATA 03,00, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0003 
1350 DATA 00,00, 00, 00, 00,03, 2D, 4F, 04, 0C, 00, CO, 5A, 04, 10, 39,01F6 
1360 DATA 6F,03,0C, OC, CO, 54,04, 10, 2D, 8F, 04, 0C, 00, CO, 5A, 04, 03A2 
1370 DATA 10,00, 00,00, 00,00, 02, 18,03, 03,03,01,01,01,01,01,0038 
1380 DATA 01,01,01,01,01,01,01,01,01,03,03,03,03, 19,04, 1, 0047 
1390 DATA 18,18, 18,18,01,18,18,01,18,18, 18,18, 18,01, 19,03, 0127 
1400 DATA 03,19,01,02, 18, 18,18,18,01,18,18,01,18,18,18,18,0111 
1410 DATA 02,01, 19,03, 03, 19,01, 02,02,01,01,18,01,01,01,01,005E 
1420 DATA 18,01,01,02,02,01,19,03,03,19,01,18,01,01, 18, 18, 00A2 
1430 DATA 18,17,17,18,18,18,01,01,18,01, 19, 03,03, 19,01, 18, 00FA 
1440 DATA 18,18,01,01,18,18,18,18,01,01, 18,18, 18,01, 19,03, 00F9 
1450 DATA 03,19,19,01,01,18,18,18,18,18,18,18,18,18,18,01,0:28 
1460 DATA 01,19, 16,03,03, 19,19, 19, 19,01,01,01,01,0E, DE, 01, 00BB 
1470 DATA 01,01,01,19,19, 19,19, 03, 03, 19, 19, 19, 19, 19,19, 19,041C 
1480 DATA 19,19, 19, 19,19, 19,19, 19, 19, 19, 19,03,03, 03, 03, 03, 0122 
1490 DATA 03,03,03, 03, 03, 03,03, 03,03, 03, 03, 03, 03, 03, 03, 03, 0030 
1500 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
1510 DATA 00,00, 00, 00,03, 21,6F,04,0C, 00, CO, 5A, 04, 10, 45, 7F, 0295 
1520 DATA 02,08,08,C0,58,04, 10, 25, 2F, 00, 00, 00, 80, 5C, 08, 20, 0296 
1530 DATA 00,00, 00, 00, 00,02, 19, 04,04, 04, 04,04, 04, DA, 04, 04, 003F 
1540 DATA 04,04,04,04,04,04,04, 04,04, 04, 04,04, 1A, LA, LA, A, 0098 
1550 DATA 1A, 1A, 1A, LA, 1A,15, LA, LA, 1A, 1A, 14,16, 1A, 1A, 04,04, 0168 
1560 DATA LA, LA, LA, 17, LA, LA, LA, LA, LA, 15, LA, LA, LA, LA, LA, 1A,0198 
1570 DATA iA, 1A,04.04, 1A, A, LA, 1A, 1A, LA, LA, LA, LA, 04,04, 04, 0132 
1580 DATA 04,0E, 04, 04,04, 04,04, 04, A, LA, LA, LA, LA, LA, LA, LA, OOFA 
1590 DATA 1A,04, 1A, LA, 1A, 1, A, LA, A, 16,04, 04,04, 0D, 14,0E, 0125 
1600 DATA 14,04,04, 04, 1A.04, LA. 1A, 17, LA, LA, LA, LA, LA, 04.04.0113 
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1610 DATA A,0D, 14, 14,0D, 1A, 1A,04,04,04, LA, {A LA, LA, LA, 1A,0138 
1620 DATA LA, 1A,04, 04, LA, 1A, A, LA, 1A, LA, LA, 04, LA, O4, DA, DE, 0126 
1630 DATA 04,04,04,04,04,04,04,04, 14, 1,17, 1A, LA, 1A, A, 04, 00D7 
1640 DATA 16, 1A, LA, LA, LA, A, 1A, LA, 1A, A, 04,04, 04, 04, 04,04, 0118 
1650 DATA 04,04,04,04,04,04,04,04,04,04, 04,04, 04, 04, 04,00, 003€ 
1660 DATA 00,00, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
1670 DATA 00,00, 00, 03, 31,9F, 04, 08, 00, 40,59, 04, 10, 09, 5F, 04, 01F8 
1680 DATA 0C, 00, 40, 59,04, 10, 25, 2F,02,08, 08, 40,59, 04, 10,00, 01CC 
1690 DATA 00,00, 00, 00, 03, 1A,05,05,05,05,05,05,05,05, 05,05, 004F 
1700 DATA 05,05,05,05,05,05,05,05,05,05,05, 18, 1B, 1B, 1B, 1B, 00BE 
1710 DATA 05,18, 18, 18, 1B,0E, 17,05, 1B,1B,1B,1B,1B,05,05,1B,0147 
1720 DATA 17,1B,18, 18,05, 1B,17,1B,1B,05,05,05,1B,17,1B,16,0147 
1730 DATA 1B,05,05, 1B, 1B, 18,18, 18,05, 18,18, 1B,1B,1B,1B,05,0158 
1740 DATA 1B,1B,1B,1B,1B,05,05,0D,14,15,15,14,15, 15,0D,0D, 0134 


: 1750 DATA 0D,14,15,15,15,14,0D,0D,14,05,05,14,14,14,15,14,0111 


1760 DATA 
1770 DATA 
1780 DATA 


14,15, 0D, 14, 0D, 0D, 0D, OD, 14, 14, 14, 0D, 14,05, 05, 1B,0100 
18,1B,18,1B,05, 18, 1B, 1B, 1B,1B,1B,05,1B, 1B, 1B,1B,0184 
18,05,05,18,17,1B,1B,1B,05,1B, 17, 1B,1B,1B.1B,05,0150 
18,17,1B,1B,1B,05,05, 1B, 1B, 1B, 1B,1B,05, 1B, 1B,1B,016A 
1800 DATA 1B.1B,1B,05,1B,1B,1B,1B,1B,05,05,05,05,05,05,05, 0100 
1810 DATA 05,05,05,05,05,05,05,05,05,05,05, 05,05, 05, 00, 00, 0046 
1820 DATA 00.00, 00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
1830 DATA 00,00, 03, 11, 2F,02,08,08,C0,58, 04, 10, 1D, 7F,04, 14,0235 
1840 DATA 00,C0, 58, 04, 10, 3D,8F,04,0C, 00, C0, 58, 04, 10, 00,00, 0334 
1850 DATA 00,00,00, 07, 18,06,06,06,06,06, 06,06, 06, 06, 06, 06, 0064 
1860 DATA 06,06,06,06,06,06, 06,06, 06,06, LA, 1A, (A, LA, A, OD, OUCB 
1870 DATA 16,1A,0D, 1A, 1A. 14, 14,06, 1, 1A, LA, 1A,06,06, 1A, 1A,0153 
1880 DATA 1A.1A, 1A,0D,14,14,14, LA, LA, LA, A,OE, LA, LA, 17, 1A,0172 
1890 DATA 06,06, 1A, 1A, 1A, 1, 1A, A, A, {A LA, LA, LA, LA, 1A,06,0164 
1900 DATA LA, 1A, 14, 1A,06,06, 1A, LA, IA, LA, LA, LA, LA, 1A,06,06,0150 
1910 DATA 06,06,06,06,06,0E,06,06,06,06,06,14,0D, 15,06, 1A, 00A0 
1920 DATA LA, 1A,06, LA, 1A, A, A, LA, LA, LA, LA, 1A,06,06, LA, 15,015F 
1930 DATA 14,14,06, 1A, 1A, 14,06, 1A, 14, A, LA, 1A, 1A, LA, LA, 1A,016C 
1940 DATA DK.N.IA, IS. 16. NN. NA TA HAN. HA. TA.TA.TA,1A,0130 
1950 DATA 06,06, 06, 06, 06,06, 16, 1A, 1, 14,06, 1A, 1A, 1, 06, A, OFC 
1960 DATA 17,1A,17,1A,06,06,06,06,06,06, 06, 06,06, 06, 06,06, OOAA 
1970 DATA 06,06,06, 06, 06,06, 06,06, 06,06, 06,06, 06, 00, 00, 00, O04E 
1980 DATA 00,00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 0000 
1990 DATA 00,03, 3D,6F,04,0C, 00, 00,59, 04, 10, 0A,5F, 01, 0C, 00, 01A2 
2000 DATA 00,59, 04, 10, 1D, 4F, 04, 08,00, 00, 59, 04, 10, 00, 00,00, 0152 
2010 DATA 00,00,03, 1A,05,05,05, 05,06, 06, 06, 06,06, 06, 06,06, 0061 
2020 DATA 06.06,06,06,05,05,05,05,05, 1B, 1B, 1B, 1B, 1B, 1B,06, 00D9 
2030 DATA 1B,17,06,1B,1B,06,1B,1B,1B,1B,16,05,05, 1B, 1B,1B,0151 
2040 DATA 1B,1B,1B,06, 14,06, 06, 1B, 1B,0E, 1B,1B,1B,1B,1B,05,0147 
2050 DATA 06,1B,1B,1B,1B,16,1B,1B,1B,1B,1B,1B,1B,06,1B,1B,0181 
2060 DATA 1B,1B,16.06,06,1B, 1B, 1B, 1B, 1B, 1B,1B,1B,1B,1B,1B,0181 
2070 DATA 1B,06,06,06,06,06,06,06,06,06, 14,06, 06, 06, 06, 1B, 0098 
2080 DATA 1B,1B,1B,1B,1B,1B, 18, 1B, 1B, 1B, 1B,06,06, 1B, 1B, 1B,0186 
2090 DATA 1B,1B,06,1B,1B,06,06,06, 14, 14,06, 06,06, 06, 06, 06, 00DO 
2100 DATA 05,1B,17,1B,1B,1B,0E,0E, 18,06, 14,14, 14,14, 14,14,013D 
2110 DATA 14,14,14,05,05,1B,1B,1B,1B,1B,06, 1B, 18,06, 14, 14,0137 
2120 DATA 14,14,14,14,14,14,17,05,05,05, 05,05, 06, 06, 06,06, 00C0 
2130 DATA 06,06,06,06,06,06,06,06,05,05, 05,05, 00, 00, 00, 00, 0044 
2140 DATA 00,00, 00, 00, 00,00, 00, 00,00, 00, 00, 00, 00, 00, 00, 00, 0000 
2150 DATA 03,11,2F,02,0C,0C, 40,59, 04, 10, 3D, 4F,01, 08, 00, 40, O1DF 
2160 DATA 59,04, 10,09, 7F,04, 08, 00, 40,59, 04, 10,00, 00, 00,00, IAE 
2170 DATA 00,03, 1B,06,06,06,06, 04,04, 04, 04, 04,04, 04, 04,04, OO5A 


A suivre... 





34 












TOP MICRO frs 
Æ 92308770 


Vente exclusivement par correspondance. Matériel testé et installé. Garanti un an pièces et Main d'oeuvre. 
PRIX VALABLES JUSQU'’AU 31 08 90 


























C 


Commodor 






























520 STE 
520 STE COULEUR 5490 
1040 STE 4490 
1040 STE COULEUR 6490 
1040 STE MONO * 4990 
STACY HD20 1Mo RAM 12900 


AMIGA 500 
AMIGA 500 + EXT. 512Ko 3999 
AMIGA 500 COULEUR 5570 
AMIGA 500 STARTER KIT 3690 
AMIGA 500 STARTER KIT COULEUR 5940 
AMIGA 2000 7590 


MEGAPAGE MEGASTI + 5990 AMIGA 2000 COULEUR 9490 
PORTFOLIO L 1990 EXT. 8Mo peuplée 2Mo A2000 3590 
INTERFACE PARALLELE PORTFOLIO 500 EXT. 512Ko-horloge A500 790 
BEE CARD 32Ko PORTFOLIO 500 LECTEUR EXT. A500 A2000 990 


Nombreux jeux + 10 disquelles vièrges par tranche d'achal de 1500Frs 
hé PROMOTION dans la ile des Siocks 


CABLE PERITEL A500 A2000 100 
DISQUES DURS - EXTENSIONS - DIVERS MOUS CONSULTER & 


AM STRAD # REZ) us co MODORE — de 


; Promotion de ss ts SN STE MES. © Promotion été 
TIC. : 
PC1512 SD Monochrome 4490 
PC1512 SD Couleur 5490 
FILE CARD 30 Mo (installée sur PC 1512) 3000 
PC 2086 SD 12 MD VGA Monochrome 5990 
PC 2086 SD 14 HRCD VGA Couleur 8190 
PC 2086 HD 30 12 MD VGA Monochrome 8590 
PC 2086 HD 30 12 HRCD VGA Couleur 9990 
PC 2086 HD 30 14 HRCD VGA Couleur 10990 
PC 2286 HD 40 12 MD VGA Monochrome 9990 
PC 2286 HD 40 12 HRCD VGA Couleur 11490 
PC 2286 HD 40 14 HRCD VGA Couleur 12490 
- Les PC 152 son livrés avec MS-DOS, Souris, GEM Basic 2 el Intégrale PC 

- Les PC 2000 son ivrés avec MS-DOS, Souris, WINDOWS. GW-Basic el WORKS 






















…G9mmodore: 


TTC. 





PC 10-NII 8088, 640 Ko, 2 lect.5”1/4 360 Ko 
clavier 102 t., MS-DOS 3.03, GW-BASIC 
- avec écran Couleur 147 CGA 7290 
- avec écran Monochrome 14” VGA 7290 
- avec écran Couleur 147 VGA 9990 
PC 20-III 8088, 640 Ko, 1 lect.5”1/4 360 Ko, 11D 20 Mo 
clavier 102 t., MS-DOS 3.03, GW-RASIC 
- avec écran Couleur 14” CGA 9290 
- avec écran Monochrome 14” VGA 9290 
- avec écran Couleur 147 VGA 11990 
PC 30-III-20 80286, 12 Mhz, 640 Ko, 1 lect.3”1/2 1,44 Mo, HD 20 Mo 
clavier 102 t., MS-DOS 4.01, GW-BASK,, souris 
- avec écran Monochrome 147 AMBRE 10590 
- avec écran Couleur 14” EGA 13290 
- avec écran Couleur 147 VGA 14190 
PC 40-III-40 80286 12 Mhz, 1 Mol lect.5”1/4 1,2 Mo, HD 40 Mo (19ms) 
clavier 102 t., MS-DOS 4.01, GW-BASK, souris 
- avec écran Monochrome 14” VGA 14190 
- avec écran Couleur 147 VGA 16790 
- avec écran 14” Multisync. 17690 
AUTRES CONFIGURATIONS  MOUS CONSULTER & 


8086 10 Mhz, 640 Ko,]1 lect.3”1/2 720 Ko,HD 20 Mo 
clavier 102 t., MS-DOS 3.3 
avec écran Monochrome CGA 
avec écran Couleur CGA 
PC AX-2-E 80286 12Mhrz, 1 Mo, 1 lect.3”1/2 1,44Mo,HD 20Mo 
clavier 102 t., MS-DOS 4.01 
- avec écran Monochrome VGA 
- avec écran Couleur VGA - 3 Mois d'abonnement à AMSTAR (AMSTRAD) 
LX 800 9 aiguilles, 80 col., 180 cps a S , 
LQ 500 24 aiguilles, 80 col., 180 cps - ou PC COMPATIBLE MAGAZINE. 


Cäble parallèle 





( à préciser sur le Bon de Commande ) 





A retourner daté ct signé à : TOP MICRO B.P 88 - 35170 BRUZ Tel : 99 30 87 70 


[Qté | Matériol | Montant | 


Code Postal : 


Frais de Port si TOTAL « 8000 Frs 120 Frs 


TOTAL TTC Lee TEL : 


Précisez l'abonnement : CARTE BANCAIRE NUMERO : 
res | RAA AN 
DATE D'EXPIRATION : | se 


PC COMPATIBLE MAG. 








CATALOGUE DIVERS. L'équipe de la Rédaction a effectué pour vous une sélection de produits. Vous pouvez obtenir plus 
de détails sur les produits soit par téléphone, soit par le 36 15 MHZ en posant votre question par le même serveur, à 
compter du 15 septembre dans la rubrique catalogue. 





ePROGRAMMES UTILISTAIRES POUR AMS- 


TRAD 

M Archambault Réf 110F 
eL’UNIVERS DU PCW de P Léon 

Réf SRCE 119F 
La disquette 150F 
eCPC COMPILATION 1 à 4 

Réf SRCE 80F 
eCOMPILATION CPC 5 à 8 

Réf SRC 80F 


eCOMMUNIQUEZ AVEC VOTRE AMSTRAD 
D.Bonomo & E Dutertre Réf SRCE 
Disquette du livre 250F 






eMULTICOURS 6ème 

Français, Sciences naturelles Géographie 

Réf GU557064 245F 
eMULTICOURS 3ème 

Idem précedent Réf GU557124 245F 
eMULTICOURS 4ème 

Idem précédent Réf GU557104 245F 
eMULTICOURS 5ème 

Idem précedent Réf GU557084 245F 


La série des multicours comprend un 
holi dé 3 étueatis 0! : 


eRODY ET MASTICO 
Logiciel d'éveil de 4 à 7 ans 
Réf GEN5010CPC 199F 


HAMSTER EN FOLIE 
A partir de 10 ans Simulation 
économique et 
ri : 
Réf GEN5007CPC 225F 
LES 4 SAISONS DE L'ECRIT 
Français, expression écrite, vocabulaire 
et lecture. 
Pour CE/CM de 7 à 11 ans 


Réf GEN5005CPC 225F 
Pour 6°/3° de 11 à 15 ans 
Réf GEN5006CPC 225F 


DESTINATION MATHS 


isati i Ile décors futuri 


animation et musique 

Pour CE1/CE2 Réf GEN5001CPC 199F 

Pour CM1/CM2 Réf GEN5002CPC 199F 

Pour 6°/5° Réf GEN5003CPC 199F 
Pour les moins de 6 ans 

eCOMPTE LES NOUNOURS 

Jeux divers plus écriture 

Réf UBI001CPC6128 DISK 149F 

Réf UBI011CPC6128K7 129F 

Pour les 6 à 8 ans 

LE TRAIN DES NOMBRES et de nombreux 

jeux d'éveil 

Réf UBI002CPC Disk 149F 


Réf UBI012CPCK7 129F 


eDECLIC LECTURE niveau CP 


Réf MC80CPC 200F 
eSCIENCES PRIMAIRES: L'homme 
Réf MC98CPC 200F 


eANGLAIS 43 niveau 4 et 5èRéf MC94CPC 200F 
eLANGUES niveau primaire et débutant 


ANGLAIS Réf MC99CPC 200F 
ITALIEN Réf MC96CPC 200F 
ESPAGNOL Réf MC95CPC 200F 
ALLEMAND Réf MC97CPC 200F 
LOGICIELS NIVEAU PRIMAIRE 

ET MATERNELLE 

notre cataloque. 

NIVEAU SECONDAIRE 

eGRAMMAIRE 6&5è 

Réf MC17CPCDISK 200F 
MATHS ALGEBRE 6è 

Réf MCO3CPCdisk 200F 
Réf MC201 CPC K7 170F 
eMATHS NIVEAU 5è Nouveau programme 

Réf MC21CPC disk 200F 
Réf MC202 CPC K7 170F 
MATHS ALGEBRE pour 5&4è 

Réf MCO4CPC 200F 
MATHS ALGEBRE classe 3è 

Réf MCO5CPC disk 200F 
eEQUATION ALGEBRE 3è et 2NDE 

Réf MCO6 CPC disk 200F 
Réf MC205CPCK7 170F 


MATHS second cycle niveau seconde à 
terminale 

Réf MCO7CPC disk 250F 
Réf MC206 CPC K7 200F 
eMATHS second cycle Algebre pour 

les classes de seconde à terminale 


Réf MCO8CPC disk 200F 
Réf MC207CPCK7 170F 
eGEOMETRIE PLANE et ESPACE 

SOLIDE 4è à terminale 

Réf MCO9disk 200F 
*EXAMENS TOUS NIVEAUX 

Réf MC14 CPC 200F 





POUR REUSSIR EN FRANCAIS ET 
EN MATHEMATIQUE 





8 PROGRAMMES : 2000 QUESTIONS 

ET 50 EXERCICES 
e0RTHOGRAPHE CE sur 6128 
Réf L4401CPC 200F 
e0RTHOGRAPHE CM pour 6128 
Réf L4402CPC 200F 
eORTHOGRAPHE 6&5è pour 6128 
Réf L4403CPC 200F 
e0RTHOGRAPHE 483è pour 6128 
Réf L4407CPC 200F 
eVOCABULAIRE CM pour 6128 
Réf L4404CPC 200F 
eCONJUGAISON pour 6128 
Réf L4406CPC 200F 
LES 4 OPERATIONS pour 6128 
Réf L4405CPC 200F 
MATHEMATIQUES CM pour 6128 
Réf L4400CPC 200F 








AVEZ-VOUS 
VU 
LE NOUVEL 


INFORMATIQUE 


TTENTION : Dès 

le prochain numé:- 
ro, AMSTAR & CPC de- 
viendra AM'STAR et se 
présentera sous une 
nouvelle formule. 


Ainsi, en plus de tou- 
tes les rubriques habi- 
tuelles, vous trouverez 
tout un cahier présen- 
tant les nouveautés sur 
les consoles de jeux. 


Disponible dans les kiosque, 
en commande au numéro 
et par abonnement. 


Abonnement 
page 38 





QRRELITÉE dsqu'eu Has 
La rédaction a sélectionné pour vous 


Imprimante CITIZEN 120 D + 
+ de 600 000 vendues en Europe 


14 É = vv 
dont 140 000 en France Disquettes 3 


Prix CPC Plus :1350 Francs 
Amsoft 
Groupez vos achats = 
H FT 











réf: CITO1 (+port60F) 
Prix 


par 10 = 240F 

Par 100 = 2200 F 

( + port et emballage ) 
Ne prenez pas de risques avec vos 
disquettes ! Utilisez de la qualité. 
réf : AMSO1 


E 
| la LOPPy ee 








Ww à Sélectionné pour vous 
ces JoysticKks. 
Le SPEEDKING standard. 


Prix CPC Plus 104 F + port 
réf : JOY 01 





Les QUICK SHOT 


Nos préférés 
Prix CPC Plus 122 F+ PRÉ 
réf : QS129 : 7 À 


DL A 





Prix CPC Plus 259 F + port 
réf : QS128 


NAVIGATOR standard 


Prix CPC Plus 139 F + port 
réf : JOYO2 








Une GARANTIE CPC Plus. 


1 Tirage au sort chaque mois 50 % de votre commande remboursée. 
(Tirage ne concernant que les clients particuliers.) 


Voir bon de commande page 38 





BON DE GOMMANDE 


Pour chaque article, entourez le ou les # choisis. 
ANCIENS Nos AMSTAR & CPC 

N°26-—27 28-29-30 -31 -32-33-34 

35 — 36 — 38 — 39 — 40 — 41 — 42 — 43 — 44 — 45 — 46 — 47 


DISQUETTES AMSTAR & CPC 
N°20 — 21 — 22 — 23 — 24 — 25 — 26 — 27 — 28 — 29 — 30 
(une disquette réunit 2 numéros consécutifs d'Amstar & CPC) 


ANCIENS Nos AMSTAR 
N°5-6-7-8-9-10-11 
12-13-14-15 
16—-17-18-19-20-21 
22-23-24-725 


DISQUETTES AMSTAR 


N° 1 (du n° 1 au 8 inclus) — N° 2 (du n° 9 au 16 inclus) 
N° 3 (du n° 17 au 25 indus) 


ANCIENS Nos CPC 

N°10—11—-13-16-18- 23-24-2526 

27—28-29-30-31-32- 33-34-36 -37 

ANCIENS Nos HORS-SERIE CPC 
N°4-7-8-9-10-11-12-13-14-15-16 

N°17 —18—19— 20 — 21 —22 

DISQUETTES CPC ET DISQUETTES HORS-SERIE CPC 
N°1-2-3-4-5-6-7-8-9-10-11-12-13-14-15-16-17-18-19 
(une disquette réunit 2 numéros consécutifs de CPC) 


HS1 — HS2 — HS3 — HS4 — HS5 — HS6 — HS7 — HS8 — HS9 — HS1O — HS11 
HS12 — HS13 —HS14 —HS15 — HS16 — HS17 — HS18 — HS19 — HS20 — HS21 — HS22 


ABONNEMENT 6 DISQUETTES (non rétroactif) 
DISQUETTES “ARCADES” Téléchargement AMSTRAD CPC 


Câble pour téléchargement 


LOGICIELS EDUCATIFS - LIVRES - DIVERS 
ne D ÉNATION SRE 


Abonné 
Non abonné 


A expédier à : Editions SORACOM 
La Haïe de Pan - 35170 BRUZ 


25 F (unité] 
26 F [unité] 


110 F {unité] 
140 F {unité] 


15 F (unité) 
18 F (unité) 
20 F {unité] 
22 F {unité} 


110 F {unité) 
25 F [unité] 


15 F (unité) 
17 F (unité) 


Abonné : 
110 F {unité) 
Non abonné : 
140 F [unité] 

600 F 


60 F 
89F 


Franco 
Franco 


Franco 
Franco 


Franco 
Franco 
Franco 
Franco 


Franco 


Franco 


Franco 
Franco 

















Forfait port + 10 F par logiciel et 10 % pour livres 


Pour tout envoi par avion : pour DOM-TOM et étranger 
supplément forfaitaire de 10 % par article 


Je joins mon règlement :  Q chèque bancaire 


PAYEZ PAR CARTE BANCAIRE 


ape auf 6-6 ir acc) 
Er) 


[inscrire les numéros de la carte, la date et signer] 


Date d'expiration Signature 


Date Signature 


Q chèque postal 


Nom : 


Adresse : . 


Q Facultatif : recommandé + 10 F par commande 


MONTANT GLOBAL 


Q mandat 


Prénom : 





Code Postal : 


Ville : 
ECRIRE EN MAJUSCULES 


CPC Plus 23 


Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 
tèle de ne pas agraler les chèques, et de ne rien inscrire au dos. 





Commande : La commande doit comporter tous les renseignements demandés sur le bon de commande (désignation ou référence si celle-ci existe). Toute absence de précisions est sous la responsabilité de l'acheteur. La vente es 


condue dès acceptation du bon de commande par notre société, sur les artides disponibles uniquement. 


Les prix : Les prix indiqués sont valables du jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le libellé de nos tarifs au moment de la fabrication du catalogue, et de 


variation de prix importante des fournisseurs. 


Livraison : La livraison intervient après le règlement Les délais de livraison étant de 10 à 15 jours environ, SORACOM ne pourra ètre tenue pour responsable des retards dus aux transporteurs ou aux grèves des services postaux. 

Transport : La marchandise voyage aux risques et périls du desinataire. La livraison se faisant par colis postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur toute la France métropolitaine, + 20 F par 
article pour Outre-Mer par avion et au-dessus de 5 kg nous nous réservons la possibilité d'ajuster le prix de transport enfonction du coût réel de celui-ci. Pour bénéficier de recours possible nous invitons notre aimable dientèle à opter pour 
Réclamation : Toute réclamation doit intervenir dans les dix jours suivants la réception des marchandises. 


l'envoi en recommandé. À récepion des paquets, toute détérioration doit être signalée 
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LES MEILLEURS LOGICIELS PUBLIES DANS AMSTAR & CPC 
ET CPC HORS SERIE 








Simple, rapide, efficace : 
Téléchargez les listings publiés dans 
le mensuel Amstar & CPC et dans le 
bimestriel CPC Hors Série. 

Il vous suffit pour cela de notre logi- 
ciel ARCADES, et d’un câble de liai- 
son miniteL CPC que nous pouvons Vous 
fournir. 


Sur 36 15 Arcades, des jeux et des 
utilitaires, du son et du graphisme. 


LA COMMUNICATION 
C'EST NOTRE METIER 


Voir bon de commande page 38 


CIRE 





ATTENTION : Seul le câble Arcades fonctionne avec le logiciel de téléchargement. 


Le 


cat e __ ePposso 





LATTTA 


Module serrure 
50F + port 
{bien indiquer la boîte) | 


Nouveau ! les mêmes en noir 





Port + 25 F par article 
port + 40 F par article pour l'étranger 


Voir bon de commande page 38 


